Select Code to Download

use strict;
use warnings;
...
    print $line unless defined $contents{$field2};
}
close $fh1;