# my $date = $arr_ref->$datecol;

# $date =~ s/ //; 

##</code><code>##

sub fix_oracle_date {
    my( $date ) = @_;

    # $date =~ s/ //;

    return $date
}

##</code><code>##

use Test::More;

is fix_oracle_date('08/02/2018'), '8/2/2018', "Correct date for 8/2/2018";
is fix_oracle_date('08/03/2018'), '8/3/2018', "Correct date for 8/3/2018";
is fix_oracle_date('08/04/2018'), '8/4/2018', "Correct date for 8/4/2018";
is fix_oracle_date('08/13/2018'), '8/13/2018', "Correct date for 8/13/2018";

done_testing;