while ($aref = $sth->fetch)
{
    push @{ $HoA{$l} } , [ $aref->[0] , $aref->[1]  ];
}