my $foo = "long string\n";
bar( \$foo ); # pass reference

sub bar {
    my $fooref = shift;
    print $$fooref; # dereference
}
__END__
long string