Select Code to Download

my %hash = (
    Mouse => {Index => 0, Value => 'Jerry'},
    Cat   => {Index => 1, Value => 'Tom'},
    Dog   => {Index => 2, Value => 'Spike'}
);

my $hash = {
    Mouse => {Index => 0, Value => 'Jerry'},
    Cat   => {Index => 1, Value => 'Tom'},
    Dog   => {Index => 2, Value => 'Spike'}
};

foreach (sort {$hash{$a} {'Index'} cmp $hash{$b} {'Index'}} keys %hash
+)

$hash->{$a}