push @{ $out{shift(@ref)} }, shift(@ref) while (@ref);