I am the only one who write perl code and the other day the senior sysadmin got real surprised when he sees this part of my perl code :

foreach my $usrdir ( 
   sort { scalar $hashref->{$b} <=> scalar $hashref->{$a} }
          keys %{$hashref} ) { ... }
[download]

now i suppose that looks scary to a non-perl user ??