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