knoppix@Microknoppix:~$ perl -E '
> @prefs = qw{ cat dog monk };
> foreach $pref ( @prefs )
> {
>     say qq{${pref}fish};
>     say $pref . q{fish};
> }'
catfish
catfish
dogfish
dogfish
monkfish
monkfish
knoppix@Microknoppix:~$