use strict;
my %hash = qw( abc xyz );
print "Hash key(s) are:\n";
print "$_\n" foreach my_sub( \%hash );

sub my_sub {
    my ( $hash_hr ) = @_;
    return ( keys %$hash_hr );
}