sub sub1{
my $ref_from_global = shift;
my $foo=${$$ref_from_gloabl{'$$foo'}};
}