sub name_is {
        my $name = shift;
        return "My name is " . $$name;
      }
      my $name = "mt2k";
      print name_is \$name;