my @values;
my $table;

foreach my $k (sort {$b <=> $a} keys %input) {
		foreach (@{$input{$k}}) {
			chomp();
	        push( @{@data[$.]},( split /[,\n]/, $_));
			}
		}

	print "After\n";

	print Dumper(\%data);

	for my $i ( 0 .. $#data ) {
        $body .= "<tr>";
        for ( @{@data[$i]}){
            $body .= "<td>$_</td>\r\n";
        }
        $body .= "</tr>";
    }
    $body .= "</table>";