Select Code to Download

my @data = ( [...], [...], ... ); # assume AoA
foreach my $row (@data){
...
  my $address_str = $row->[-2];
  # parse those two vars w/regexp's here
}