in reply to clean code
foreach my $mem (split /;/, $memory_data) { my($name,$value) = split /=/, $mem, 2; $data{$name} = $value; } [download]
I've applied sfink's advice, which is my recommendation too.