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

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