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);

##</code><code>##

put_string_ref(\{get_string()});
put_string_ref(\${get_string()});
put_string_ref(\$&get_string);
put_string_ref(\{&get_string});