use strict;
use warnings;

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

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

##</code><code>##

use strict;
use warnings;

my @names = ('peter','jonah','larry'); 
our ($peter,$jonah,$larry);

foreach (@names) {
    no strict 'refs';
    $$_ = "i like $_";
}

print "$peter\n$jonah\n$larry\n";