Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -MData::Dumper -le
"my $index = q{1 => 'foo',  2 => 'bar',  3 => 'baz'};
...
$VAR1 = {
          '1 => \'foo\',  2 => \'bar\',  3 => \'baz\'' => 'foobar'
        };

c:\@Work\Perl\monks>perl -wMstrict -MData::Dumper -le
"my $index = q{1 => 'foo',  2 => 'bar',  3 => 'baz'};
...
          '3' => 'baz',
          '2' => 'bar'
        };

c:\@Work\Perl\monks>perl -wMstrict -MData::Dumper -le
"my $index = q{1 => 'foo',  2 => 'bar',  3 => 'baz'};
...
          '3' => 'baz',
          '2' => 'bar'
        };