my @arr = ("item 1","item 2");
my %h;
foreach my $v (values @arr) {
  print "$v\n";
  delete $arr[1];
  $h{x} = "sneaky hash value"
}

@arr = ("item 1","item 2");
my @arr2;
foreach my $v (values @arr) {
  print "$v\n";
  delete $arr[1];
  push @arr2, "sneaky array value";
}