Select Code to Download

    open TWO, '<', $FILE2;        # better be explicit ;-)
    while (<TWO>)
...
        print "$key NOT IN FILE 1\n" unless $hash1{$key};
        $hash2{$key} = $value;
    }

foreach my $key (keys %hash1)
{
...
    }
}