my $full_file="${dir}/$file";
        chomp($full_file);