Select Code to Download

foreach $pair (@pairs) 
{
($key,$value) = split (/=/, $pair);
...
    @newrecords = (@newrecords,"$name");
   }
}

foreach $pair (@pairs) {
  ($key,$value) = split (/=/, $pair);
  chomp $value;
...
    push @newrecords, $_;
  }
}