renee+2007-09-18 14:39:51--

Code (perl): (dl )

my %hash = do{ my @array; push @array, $loader[$_] => $_ for(0..$#loader); @array }