Hum.. Well the point was to get you to complete the code, especially the list in %listforrand, however it seems that I started it wrong, it also seems to me that your final code is incorrect: the code originally had $rand(1,4) for $2 == 2 so '4' should be the second element in the list:
