Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
print "a=@a\n";    
@a = sort foo(42);  
print "a=@a\n";

foo gets '42'
a=44 33
foo gets '42'
a=33 44
a=42
a=42