#!/usr/bin/perl

use strict;

my $a = 2;
f(\$a);
print "$a\n";

sub f {
	my $x = shift;
	$$x = 5;
}