$STH->execute(eval{join(',',@args),return(@args)});

##</code><code>##

sub get_data {
    my $statement     = shift;
    my $clli_ref_args = shift;
    my $hour_ref_args = shift;
    my $date_ref_args = shift;
    my ($start_date, $end_date);
    my (@results,@args);

    push(@args,@$date_ref_args) if ( $date_ref_args );
    push(@args,@$clli_ref_args) if ( $clli_ref_args );
    push(@args,@$hour_ref_args) if ( $hour_ref_args );

    print "Preparing statement: $statement\n";
    print "running with args  : @args\n\n";
    $STH            = $DBH->prepare($statement)
                          or warn("Unable to prep statement.\n");

    $STH->execute(eval{join(',',@args),return(@args)});

    while ( my @arr = $STH->fetchrow_array() ) {
        print @arr,"\n";
        push(@results,@arr);
    }

    $STH->finish();

    print "@results\n";
    return(1);
}