use Data::Table;
$joinTable->colsMap( sub { $_->[4]  = skipblanks( $_->[4] ) } );

sub skipblanks {
    my @data = @_;
    my $x    = 0;
    foreach $x (@data) {
        if ($x) {
            $x =~ s/,/\./g;
        }
        return $x;
    }
}