Select Code to Download

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

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