# Perlmy %hash = &subWhichParsesDataprint <<EOF;<script language="JavaScript"> var myData = new Array();EOFmy $i = 0;foreach my $key (keys %hash) { print <<EOF; myData[$i] = new Object(); myData[$i].key = "$key"; myData[$i].value = "$hash{$key}";EOF}