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