Select Code to Download

use strict;
use warnings;
...
   };
my %index3 = eval $index;
print Dumper \%index3;

$VAR1 = {
          '1' => 'foo',
          '3' => 'baz',
          '2' => 'bar'
        };