#! /usr/bin/perl
use strict;
use warnings;

use Time::HiRes qw( gettimeofday tv_interval );

my $i=0;
for my $file ( glob("data.*") ) {

    open FH, $file or die "$file: $!\n";
    parsedata(++$i);
    close FH;

}

sub parsedata {
    my $run = shift;

    my $line;
    my @lines;

    my $t0 = [ gettimeofday ];

    for $line ( <FH> ) {
        push @lines, $line;
    }

    my $t1 = [ gettimeofday ];

    print "$run Run: ", tv_interval( $t0, $t1  ), "\n";

}

__END__