my %snmp_who;

while(<>) {
    my ( $id, $type, $value ) = split " ", $_, 3; # !FIXME!
    push @{ $snmp_who{$id} }, $value;
}

print "@{ $snmp_who{$_} }\n" for keys %snmp_who;