Select Code to Download

#!/usr/bin/perl -w

...
    my $indentation = '  ' x $nextlevel;
    print $indentation, $baseval, ' = ', $datum, "\n";
}

$ perl test-mlh.pl
      $hash{key1}{key2}{key3} = asdf
...
  $array[8] = 8
  $array[9] = 9
  $scalar = blah