use Myperl;
my $s=4;
my %h=(0..5);
my $myresult=getInfo($s, \%h);  ## pass a reference