#!/usr/bin/perl

use strict;
use warnings;

my $n;

sub foo {
    $n = 0;
    return $_[0];
}

print foo(3), "\n";
$n = 3;
print foo($n), "\n";

__END__
3
0