Further to runrig's reply: The presence of the statement
    join("\t",@h),"\n";
suggests baperl is not running with strictures (use strict;) or warnings (use warnings;) enabled, which might offer many suggestions about other problems in the code:

>perl -wMstrict -le
"my @h = qw(a bc def ghij);
 join(qq{\t}, @h), qq{\n};
"
Useless use of join or string in void context at -e line 1.
Useless use of a constant (
) in void context at -e line 1.
[download]

Update: Removed extraneous statement from example code.