{ my @data; my $table; foreach my $k (keys %input) { foreach (@{$input{$k}}) { chomp(); push( @{@data[$.]},( split /[,\n]/, $_)); } } $table .= ""; for my $i ( 0 .. $#data ) { $table .= ""; for ( @{@data[$i]}){ $table .= "\r\n"; } $table .= ""; } $table .= "
$_
"; }