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