my @interests = ( "foo", "bar", "blah" );
my %interest_expanded;

foreach (@interests) {
 $interest_expanded{$_} = "My interest is $_";
}


foreach (keys %interest_expanded) {
        print $_, " => ", $interest_expanded{$_} , "\n";
}