Help for this page
use strict; ... ), "\n"; } }
use strict; ... delete $hash2{$key1}; delete $hash3{$key1}; }