my $array = Array::AsHash->new({array => \@array});

  while (my ($key, $value) = $array->each) {
    print "$key : $value\n";
  }