Mr. Dave i tried to follow your instructions and that's what i got #..................# use strict; use warning; @pronouns_ending=("i","you","he/she/it","you","they","","","s","",""); print"remember :\n\nVerb:\t"; chomp $verb=<<>>; split $verb; print "\n"; for($i++;$i<4;){ print pop(@pronouns_endings($i))." ".$verb-3.shift(@pronouns_endings(i+5))."\n"; }