my %relays;
while (<>) {
    chomp;
    my ($id, $states) = split(' ', $_, 2);
    $relays{$id} = $states;
}

##</code><code>##

my @relays;
while (<>) {
    chomp;
    my ($id, $states) = split(' ', $_, 2);
    push @relays, [ $id, $states ];
}