my $sqlstmt = def_sql_a;

sub def_sql_a {
return <<SQL_A;
    select count(col1) from table1 
    where col1 = ? and col2 = ? and col3 = ?
SQL_A
}