my $array = { @array };
while (my ($k, $v) = each %$array) {
  .
  .
}