my @mydata = map [ $i++, $_ ], 170, 27, 3, (0) x 8; my $json = to_json(\@mydata); print << "HTML";

Hello

HTML