#!/usr/bin/perl -w

use strict;
use Benchmark;

timethese(5, {
  A => sub {
    open ( FILE, "<test.txt" );
    my $ln;
    while ( <FILE> ) {
      $ln++;
    }
    close (FILE);
  },
  B => sub {
    open ( FILE, "<test.txt" );
    my @array;
    my $ln = scalar(@array = <FILE>);
    close (FILE);
  }
});