use strict;
use warnings;

my @names = ('peter','jonah','larry');
my %name_hash = ();
foreach (@names) {
    $name_hash{$_} = "i like $_";
}

print "$name_hash{$_}\n" foreach @names;