(Replaces your 17) my $cl_data_row=(\split(/\$de/,$inp_row));
(added) print "\$cl_data_row is $$cl_data_row\n";