I only count 18 lines in your posted code; what is line 19?

What did you intend split @a = split m/\t/,$test; to mean?
You've got two splits in that line, and I expect the first split is what is causing you grief.