Select Code to Download

#!/usr/bin/env perl

...
    push(@common, $_) if exists $hash1{$_};
}
print "common2: @common\n";

common1: c b
common2: c b