DB<106> @x= map {int rand 10 } 1..10 => (5, 5, 7, 6, 1, 5, 3, 5, 7, 7) DB<107> [ sort @x ] => [1, 3, 5, 5, 5, 5, 6, 7, 7, 7] DB<108> [ sort @x; ] syntax error at (eval 59)[multi_perl5db.pl:644] line 2, at EOF #### lanx@nc10-ubuntu:~$ perl -c sub my_filter { my ($hash) = @_; return [ sort {$b <=> $a} keys %{$hash} #Reverse sort ]; } - syntax OK