Select Code to Download

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

# $date =~ s/ //;

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

    return $date
}

use Test::More;

...
is fix_oracle_date('08/13/2018'), '8/13/2018', "Correct date for 8/13/
+2018";

done_testing;