I tried the following revised code, but it neglects to push unique values onto each individual array.

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

my %seen;
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 unless $seen{$int}++;
}

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


__DATA__
0x130005d   1.253.54.1      11          
0x130009c   1.253.54.2      12    
0x130005d   1.253.54.1      14     
0x130005d   1.253.54.1      11    
0x130005d   1.253.54.1      10    
0x130009c   1.253.54.2        12    
0x130009c   1.253.54.2        14
[download]