Select Code to Download

foreach $line (@lines) {
  ($name, $value) = split(/=/, $line);
...
    }
  }
}

$VAR1 = [
          {
...
          $VAR1->[0],
          $VAR1->[0]
        ];