#!usr/bin/perl -w
use strict;

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

rutine(\%hash);

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