Считывание пути из файла

#!/usr/bin/perl
 
use strict;
#Открываем файл в переменную file
open(my $file,"1.txt") or die("Error open 1.txt");
#записываем файл в массив str, чтобы бегать построчно
my @str = <$file>;
my $len = @str;
my @arr;
my $i=0;
while($str[$i] !~ /"ISDynamicFile"/)
{
        $str[$i] =~ /<row><td>(\w+)<\/td>/;
        push @arr, $1   if($1 && $1 !~ /\n/ && $1 !~ /\r/ && $1 !~ / /);
        $i++;
}
 
close $file;
my $l = @arr;
my $y=0;
open (my $road,"> pach.txt");
for(my $y=0;$y<$l;$y++)
{
        open(my $f,"1.txt");
        my @path=<$f>;
        my $count = @path;
        for(my $e=$i;$e<$count;$e++)
        {
                if($path[$e] =~ /\\$arr[$y]\\/i)
                {
                        $path[$e] =~ /gt;(.*?)</;
                         print $road $1, "\n";
                }
        }
        close $f;
}
 
close $road;
 
#Удаляем повторяющиеся пути
my %lines;
open(my $in,"pach.txt");
open(my $out,"> final.txt");
foreach (<$in>) {$lines{$_} = $_}
print $out keys %lines;
close $in;
close $out;
 
unlink("pach.txt");