whoops, minor typo, big error; change the above line to this:

push @{$alldata{$key }}, \%temphash
[download]

or, you can try this:

$hash{$key} = \%temphash;       # $hash{$key} is a reference to %temph
+ash
$hash{$hey} = \@array;          # $hash{$key} is a reference to @array
$hash{$key} = {KEY => 'value'}; #$hash{$key} is a reference to an anon
+ymous hash
$hash{$key} = [1,2,3];          #$hash[$key] is a reference to an anon
+ymous array
[download]

Update:Cleaned up code formating a bit

The 15 year old, freshman programmer,
Stephen Rawls