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

##</code><code>##

%hash=@_;