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(@args);

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

    $STH->finish();

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