use Data::Dumper;

##</code><code>##

print Dumper \@hubs;

##</code><code>##

    push @hubs, $1 if $line =~ /\d+ \s+ (\w+) \s+/x;