-------

#!/usr/bin/perl

use CGI qw(:standard);

print header;
print start_html('hash of arrays');

print "<font size = +1><b>Sorting a hash of arrays by one of array items</b>\n";

print "<p>Add data with each data set in one array ...\n";

my %hoa = (
"array a" => [ "data a0", "data a1", "data a2", "data a3" ],
"array b" => [ "data b0", "data b1", "data b2", "data b3" ],
"array c" => [ "data c0", "data c1", "data c2", "data c3" ],
);

print "<br>... done\n";

#-------------------------

print "<p>Display data, without sorting ...\n";

print "<table border=1 bgcolor=AAAAFF>\n";
print "<tr><td bgcolor=FF99FF>hash</td><td bgcolor=FF99FF>data 0</td><td bgcolor=FF99FF>data 1</td><td bgcolor=FF99FF>data 2</td><td bgcolor=FF99FF>data 3</td></tr>\n";
	
	for $data ( keys %hoa ) {
	print "<tr><td>$data:</td>\n";
		for $i ( 0.. $#{ $hoa{$data} } ) {
		print "<td> $i = $hoa{$data}[$i] </td>";
		}
		print "</tr>\n";
	}
	print "</table>\n";

#-------------------------

print "<p>Display data, sorted by 'hash' ...\n";

print "<table border=1 bgcolor=AAAAFF>\n";
print "<tr><td bgcolor=FF99FF>hash</td><td bgcolor=FF99FF>data 0</td><td bgcolor=FF99FF>data 1</td><td bgcolor=FF99FF>data 2</td><td bgcolor=FF99FF>data 3</td></tr>\n";
	
	for $data ( sort ( keys %hoa ) ) {
	print "<tr><td>$data:</td>\n";
		for $i ( 0.. $#{ $hoa{$data} } ) {
		print "<td> $i = $hoa{$data}[$i] </td>";
		}
		print "</tr>\n";
	}
	print "</table>\n";

#-------------------------

print "<p>Display data, sorted by array 0 ...\n";

print "<p>help please!\n";

print "</font>\n";
print end_html;

------------