Help for this page

Select Code to Download

Select or download this
```
use Data::Dumper;
```
Select or download this
```
print Dumper \@hubs;
```

Select or download this

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