Select Code to Download

foreach (@file) { my $test = pop (@file); print $test; }

while (@file) { my $test = pop (@file); print $test; }