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";