my $txt=<<'TEXT_END';
nameone, addr1 info (without commas in it) 
nametwo, address two, city (with a comma)
namethree, address three fields
TEXT_END

my %info;
my ($name,$addr);

for (split "\n",$txt) {
   ($name,$addr) = split ',',$_,2;
   $info{$name} = $addr;
} 
my ($key,$val);
while (($key,$val)= each(%info)) {
   print "$key->$val\n";
}