sub ahash{
	my %hash=@_;
	foreach my $key(keys %hash){
		my @ke = keys %hash;
		my @val = values %hash;
		return @ke;
		return @val;
	}
}
##</code><code>##

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