#!/usr/bin/perl -l
use strict;
use warnings;

sub f {
    my $ref=shift;
    $$ref=4711;
    print "$ref -> $$ref";
}

f;

__END__
$ ./833010.pl
SCALAR(0x62d238) -> 4711