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

##</code><code>##

print $data{'address'}[3];