Select Code to Download

  sub ahash{
    my %hash=@_;
    foreach my $key(keys %hash){
...
        return @val;
    }
}

my @list =qw (1 2 3 4 5);
print addmodule::ahash(@list),"\n";