Select Code to Download

  my $val = $hash{foo};
  return $val if exists $val;

  my @foo = ('a'..'d');
  delete $foo[1]; # delete 'b'.
  my @bar = @foo;

  print int exists $foo[1]; # 0
  print int exists $bar[1]; # 1