perl SQL-Statement