while ($aref = $sth->fetch) { push @{ $HoA{$l} } , [ $aref->[0] , $aref->[1] ]; } [download]
In reply to Hash of multidimensional array by panitaxx