Select Code to Download

#!/usr/bin/perl -w
use Data::Dumper;
...

print "\nFinal Hash:\n";
print Dumper \%index;

$VAR1 = {
          'node-cat-bat-bat-bat' => 5,
...
          'node-cat-cat' => 3,
          'node' => 1
        };