Select Code to Download

$array_length = @_;
for($i=0;$i<$array_length;$i++){
...
  $hash {$_[$i]} = $_[$j];
  $i++;
}

%hash=@_;