$VAR1 = ['1,v,3,4'];
$VAR2 = ['3,v,4,t'];
...
...
$VARn = ['3,8,0,7'];

$VAR1 = ['7,po,0'];

##</code><code>##

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

##</code><code>##

foreach my $x (@array1) {
			foreach my $y (@$x) {
				print $fout1 $y,"\n";
				}
			}