perl -e "$word{'noun'} = [qw(I you we)];$word{'verb'}=[qw(kill walk smile)]; print $word{noun}->[2] . q( ) .  $word{verb}->[1];"