Help for this page
#!/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"; }