Select Code to Download

bash-2.03$ perl -e'$foo = "bar"; $$foo = 1; print "$bar\n"'
1

foreach (@array) {
  my ($key, $val) = split(/=/, $_);
  $vars{$key} = $val;
}

foreach (@array) {
  next unless /var(\d+)=(.*)/;
  $values[$1] = $2;
}