use SQL::GenericStatements qw(count_duplicates, cross_tab); $result = count_duplicates($dbh, $table, @columns); $result = cross_tab($dbh, @tables);