$ perl -E '$x = "txt"; sub ref {return $x . "r";}; say &ref($x);'
  txtr
  $ perl -E '$x = "txt"; sub ref {return $x . "r";}; say ref($x);'

  $