Select Code to Download

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

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