Help for this page

Select Code to Download

Select or download this

{
    # output as tab delimited:
...
    print $fh "@array\n";
}
# $" has its old value here again