Select Code to Download

my %f1hash;
my %f2hash;
...
    warn "$f2 contains $co, not found in $f1\n" unless exists( $f1hash
+{$co} );
}
close F;

for (sort keys %f1hash) {
    print $f1hash{$_};
    print @{$f2hash{$_}};
}