my @newresult = $result;
print $newresult[0][0], "\n";