This code builds an AoA by processing three lines at a time and pushing an anonymous array of chomped lines for each group.

$ perl -Mstrict -Mwarnings -MData::Dumper -e '
sub groupsOf (&$@);

open my $inFH, q{<}, \ <<EOD or die $!;
a
b
c
d
e
f
g
h
EOD

my @arr;
push @arr, groupsOf { chomp @_; [ @_ ] } 3, <$inFH>;

sub groupsOf (&$@)
{
    my $rcToRun  = shift;
    my $groupsOf = shift;

    my $rcDoIt;
    $rcDoIt = sub
       {
           $rcToRun->(
              map shift, 1 .. ( @_ < $groupsOf ? @_ : $groupsOf )
              ),
           @_ ? &$rcDoIt : ();
       };

    &$rcDoIt;
}

print Data::Dumper->Dumpxs( [ \ @arr ], [ qw{ *arr } ] );'
@arr = (
         [
           'a',
           'b',
           'c'
         ],
         [
           'd',
           'e',
           'f'
         ],
         [
           'g',
           'h'
         ]
       );
$

[download]

I hope this is of interest.

Update: Simpler and assigns to three variables rather than constructing an AoA.

$ perl -Mstrict -Mwarnings -E '
> open my $inFH, q{<}, \ <<EOD or die $!;
> a
> b
> c
> d
> e
> f
> g
> h
> EOD
> 
> while ( not eof $inFH )
> {
>     my( $i, $j, $k ) =
>        map { chomp; $_ }
>        map { eof $inFH ? () : scalar <$inFH> }
>        1 .. 3;
>     say
>        q{$i - }, defined $i ? qq{$i; } : q{undef; },
>        q{$j - }, defined $j ? qq{$j; } : q{undef; },
>        q{$k - }, defined $k ? $k : q{undef};
> }'
$i - a; $j - b; $k - c
$i - d; $j - e; $k - f
$i - g; $j - h; $k - undef
$

[download]

Cheers,

JohnGG

In reply to Re: Save first n values from a file by johngg
in thread Save first n values from a file by Anonymous Monk

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.