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

(my ($hash))=rutine();

print "$hash{A} $hash{B} $hash{C}\n";	

sub rutine
{	
	my (%hash)=('A'=>1, 'B'=>2, 'C'=> 3);
	return(\%hash);	
}