Help for this page

Select Code to Download

Select or download this

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