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