Select Code to Download

$ cat 668658.pl
use strict;
...
f('@arr');
f(@arr);
__END__

$ perl 668658.pl
first:$VAR1 = '@arr';
...
first:$VAR1 = 'one';
second:$VAR1 = 'two';
third:$VAR1 = 'three';