sub table_to_array {
    my $table_fh = shift;
    my $table_aref = ();
    foreach (<$table_fh>){
        push @{$table_aref}, $_ if $_;
    }
    #@{$table_aref} = <$table_fh>;
    return $table_aref;
}


Use of uninitialized value in lc at /usr/local/lib/perl5/site_perl/5.12.3/Tie/Handle/CSV/Hash.pm line 31, <$csv_fh> line 8014