use strict;
use warnings;

my (%ghash)=('A'=>1, 'B'=>2, 'C'=> 3);

rutine(\%ghash);

sub rutine
{    
    my ($hash)=@_;
    print "$hash{A} $hash{B} $hash{C}\n";    
}