...other code omitted...
$data1{"$x,$y}{$colnames[$colnum]} = $linedata[$colnum];