while (<$fh>){
			last if /^\s*$/;
			my @data= split(/\s+/,$_);
			@data = join (",",@data);
			push @array1, [@data];
			}