my %relays;
while (<>) {
    my ($id, $state) = split ' ';
    push @{ $relays{$id} }, $state;
}

for my $id (keys(%relays)) {
    print("$id @{ $relays{$id} }\n");
}