my @first5 = (<$fh>)[0 .. 4];