#! perl -w

%a = (qw{ 
good orange
good apple}
);

TEST(%a);
sub TEST{
my %h = @_;
foreach (keys %h){
    print $_;
}
}