my @interests = ( "foo", "bar", "blah" );
foreach (@interests) {
 no strict 'refs';
 $$_ = "My interest is $_";
}
foreach (@interests) {
        no strict 'refs';
        print $$_ , "\n";
}
[download]