my %data=map +(split /=/)[0,1], split /;/, $memory_data;

##</code><code>##

%data=(%data, map +(split /=/)[0,1], split /;/, $memory_data);