split @a = split m/\t/,$test;