Select Code to Download

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

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

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

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