sub get_string {
  return "the string"
}

sub put_string_ref {
  my $ref = shift;
  print "$ref -> $$ref\n";
}

# Can I reduce the following two lines to one
my $string = get_string();
&put_string_ref(\$string);