sub call_query() {
    my ($query, $args_ref) = @_;
    my @args = @{$args_ref};

    print $query,"\n";
    print @args;
}