my @fields = @{$data1{$datafile}};
 #    next if   (length(map { s/\s+//g, $_ } @fields) < 15);
     print map { s/\s+//g, $_ } @fields;