my @array = qw/key value key1 value1 key2 value2/;
  use Array::AsHash;
  $array = Array::AsHash->new( { array => \@array } );

  while (my ($k,$v) = $array->each) {
    print "$k : $v\n";  
  }
  __END__
  key : value
  key : value
  key1 : value1
  key2 : value2