Select Code to Download

@{$res{'act'}} = sort {
        return 0 unless $a->{'act'} =~ /^move/ and $b->{'act'} =~ /^mo
+ve/;
...
    } @{ $res{'acts'} or [] };

return \%res;

no warnings qw(uninitialized);

...
    } @{$res{'acts'}};

return \%res;