open ($entry_file, '<', "$directory/$entry") or die "$entry_file $!";
        my @first5 = (<$fh>)[0 .. 4];
                        for (1 .. 5) {
                defined( my $line = <$fh> ) or last;
                push @first5, $line;
}