#!/usr/pkg/bin/perl
use strict;
# Pass Hash pointer (reference) to subroutine

sub print_hash($){
    my ($hashref) = shift;
    foreach my $k (keys $hashref) {
        print $k .' -> '. $hashref ->{$k},"\n";
    }
}

my (%HASH) = qw(a aa b bb);
print_hash(\%HASH);
exit;
__END__