print "$row\n";
print "$col\n";
print "$temp\n";

if (defined $col) {
    print "col is defined: $col\n";
}
else {
    print "col is not defined\n";
}