Select Code to Download

use strict;
use warnings;
...
else {
    print "The three hashes don't share any common keys.\n";
}

%hash1: A => 1
%hash2: A => 10
...
%hash1: B => 2
%hash2: B => 20
%hash3: B => 200