bash-2.03$ perl -e'$foo = "bar"; $$foo = 1; print "$bar\n"'
1
##</code><code>##

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

##</code><code>##

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