print join(' ',@tab,"\n");

There is no need to use join in this case. This will accomplish the same thing:

print "@tab\n";
[download]

When interpolating an array inside double-quotes, the value of the $" special variable is used to separate elements of the array. The default value of $" is a single space. See perlvar, and search for LIST_SEPARATOR.