Just a nit...

You cannot say $row != '10'.

I'd agree it isn't good code, but you can do it; and perl won't complain even with strict and warnings on.

-sauoq
"My two cents aren't worth a dime.";