%stooges = map { 'var' . $_ , $array[$_] } 0 .. $#array;