while (<$file>) {
        my @all_lines = <$file>;
        foreach my $file (@all_lines) {