#!/usr/bin/perl -w -00

    use strict;

    open TABFILE, "tabfile" or die "Error message here: $!";

    my @array = <TABFILE>;

    print scalar @array; # prints 6 for the above file


##</code><code>##

    #!/usr/bin/perl -w

    use strict;

    open TABFILE, "tabfile" or die "Error message here: $!";

    {
        local $/ = "";
        my @array = <TABFILE>;
    }

    print scalar @array;