#! perl -slw
use strict;
use Tie::File;

tie my( @paths ), 'Tie::File', $ARGV[ 0 ] or die $!;

for my $file ( reverse 0 .. $#paths ) {

    ## Open and process $path[ $file ]
    print "Processing file: $paths[ $file ]";

    ## Remove the path just processed
    delete $paths[ $file ]
}