Select Code to Download

#!/usr/bin/perl -w
use strict;

...
    # use hash value as an array ref
    push @{$hash{$hex}}, $int;
}

for (keys %hash) {
    print "$_ = ", join(", ", sort @{$hash{$_}}), "\n";
}