Select Code to Download

use strict;
use warnings;
...
            if $foo{$k1}{$k2} eq $bar{$k1}{$k2};
    }
}

use strict;
use warnings;
...
        print "\n";
    }
}