c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my %res;
 ;;
 no strict qw(refs);
 no warnings qw(uninitialized);
 ;;
 @{$res{'act'}} = sort {
   return 0 unless $a->{'act'} =~ /^move/ and $b->{'act'} =~ /^move/;
   return $a->{'act'} cmp $b->{'act'};
   } @{$res{'acts'}};
 dd \%res;
"
{ act => [] }