Select Code to Download

# Localize expression into $_ using a single-value 'for'.
# $_ is default for many Perl functions.
...
  do_something($_);
  do_something_else($_);
}

for ( $hash1->{'a'}->{'b'}->{'c'} ) {
  $hash2->{'bob'} = $_ if defined;
}