#!/usr/bin/perl

use strict;

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

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