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

my %hash = ();
while (<DATA>) {
    # split based on spaces
    my ($hex, $foo, $int) = split /\s+/;
    # use hash value as an array ref
    push @{$hash{$hex}}, $int;
}


##</code><code>##

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