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