my (%result, %sums);
while (<DATA>) {
    chomp;
    my ($first, $second) = split;

    if ($numberHash{$first}) {
        push @{$result{$first}}, $second;
        $sums{$first}+= $second;
    }
}

foreach my $first (sort { $a <=> $b } keys %result) {
    foreach my $second (@{$result{$first}}) {
        print "$first $second $sums{$first}\n";
    }
}