my @lines = tied(*{$fh})->readlines(10);