print OUTFILE $ary[0] . "\t" . $ary[1] . "\t" . $ary[2] . "\n";