perl and SQL question