Hmm, I don't see anything obviously wrong in your code. My best guess would be that that the regex doesn't match your input.

One thing you could to is to add the following line near the top: 

use Data::Dumper;

[download]
and, then, right after closing the $HUBFILE file handle, to print out the content of the @hubs array: 
print Dumper \@hubs;

[download]
to see the actual content of @hubs after having read the input file.

My guess is that you'll also see only one record there, which would confirm that regex probably needs some change.

Another thing you could do is to try to make the regex less strict about what it sees (maybe you don't have tabs, but spaces somewhere in your input): 

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

[download]
Finally, it would be useful if you posted a sample of your input data between <c> and </c> tags, so that we get a better idea of what this input really looks like.

In reply to Re^5: Got some problem with read write file by Laurent_R
in thread Got some problem with read write file by SilverWol

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.