# before
print OUT3 join("\t", @{$hash{$data[0]}}) ."\n";

#now
my @data1 = @{$hash{$data[0]}};
print OUT3 join("\t", @data1) ."\n";