#!/usr/misc/bin/perl5 -w

use strict;

my $blahblah = 5;

my $ref_to_blahblah = \$blahblah;

print "$$ref_to_blahblah\n";
fubar($ref_to_blahblah);
print "$$ref_to_blahblah\n";

print "$$ref_to_blahblah\n";
sub fubar {
    $$_[0] = 4;
    print "$$_[0]\n";
    return $_[0];
}