use strict;
use warnings;


my $memory_data = "foo=bar;perl=japh;";
my %data;
%data = map{split/\=/,$_} split(/\;/, $memory_data);

print "$_\t$data{$_}\n"for keys(%data);

__END__
perl    japh
foo     bar