unless (defined $cdr_list->{$msisdn})
            {
                $cdr_list->{$msisdn} = [];
            }

##</code><code>##

            push @{$cdr_list->{$msisdn}}, $record;
                 # autovivifies $cdr_list->{$msisdn} as an array ref for each new key