I would like to print out a tab character between each element in the array

There is a builtin special variable $":

 local $" = "\t";
 my @a = qw(1 2 3);
 print "@a";
 __END__
 1       2       3
[download]

-- Frank