#! perl -slw
#use 5.010;
use strict;
use Time::HiRes qw[ time ];;

sub x{
    open my $fh, '<', shift or die $!;
#    my @AoA;
    my $dummy = [ split ',' ] while <$fh>;
    close $fh;
    return $.;
}

for ( 1 .. 5 ) {
    my $start = time;
    printf "Records: %d in %.3f seconds\n",
        x( sprintf 'junk%d.dat', 1+ ($_ & 1) ),
        time() - $start;
}