http://www.perlmonks.org?node_id=970721


in reply to Re^4: Short version of database push for multiple variables
in thread Short version of database push for multiple variables

Then you just need to add parentheses:

my @fields = map length() ? $_ : 'NA', split /\t/, $Line, -1;