my %greeting;
my @names = ('peter', 'jonah', 'larry');

foreach my $n (@names) {
   $greeting{$n} = "i like $n";
}

print "$greeting{peter} \n $greeting{jonah} \n $greeting{larry} \n";

##</code><code>##

my %greeting = map { $_ => "i like $_" }
               ('peter', 'jonah', 'larry');

print join( " \n ", @greeting{qw/peter jonah larry/} ),
      " \n";