my %data;
while (<DATA>) {
    ($data{'name'}[$.],
     $data{'address'}[$.],
     $data{'city'}[$.]) 
     = split /,/,$_;
}