#!/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