Select Code to Download

@values = grep { defined } split(/\,/,$rows[$i]);

@values = map { defined ? $_ : '' } split(/\,/,$rows[$i]);