use strict;
no warnings "numeric";

print "Reusing one variable:\n";
my $val = "ff";
print "(" . ($val & "") . ")\n";
$val = 7;
print "(" . ($val & "") . ")\n";
$val = "ff";
print "(" . ($val & "") . ")\n";

print "\n";
print "Using multiple variables:\n";
my $v1 = "ff";
print "(" . ($v1 & "") . ")\n";
my $v2 = 7;
print "(" . ($v2 & "") . ")\n";
my $v3 = "ff";
print "(" . ($v3 & "") . ")\n";


print "\n";
print "Using a sub:\n";

sub xx {
	my $arg = shift;
	print "(" . ($arg & "") . ")\n";
}

xx("ff");
xx(7);
xx("ff");

##</code><code>##

Reusing one variable:
()
(0)
()

Using multiple variables:
()
(0)
()

Using a sub:
()
(0)
()

##</code><code>##

Reusing one variable:
()
(0)
()

Using multiple variables:
()
(0)
()

Using a sub:
()
(0)
(0)