May I ask from what language you come from? Because

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

would be a clever hack in any other language. In Perl its just

%hash=@_;
[download]

Impressive, isn't it? ;-)