Note that quotes inside the curly braces are not needed.

And discussions of the Merlynian Schwartzian Transform can be found here, here, and here. (Heady stuff but great when you need it!)

( sort {$b->{'count'} cmp $a->{'count'} ) or
        $b->{'type'} cmp $a->{'type'}} @data
[download]

What you want is:

sort {$b->{'count'} <=> $a->{'count'} ||
      $b->{'type'} cmp $a->{'type'}} @data
[download]

-ben

I don't think so... my test program:

#!/usr/bin/perl -w
use strict;
my @a;
push @a,{x=>1,y=>1};
push @a,{x=>2,y=>1};
push @a,{x=>1,y=>2};
push @a,{x=>2,y=>3};
push @a,{x=>2,y=>2};
foreach(sort {$a->{x} <=> $b->{x} or $a->{y} <=> $b->{y}} @a){
  print " $_->{x}  $_->{y}\n";
}
[download]

prints the correct results:

$ ./sort.pl 
 1  1
 1  2
 2  1
 2  2
 2  3
[download]

Thanks for your response. I thought that || was the same as or. How are they different? Txs

They do the same thing, it's all about operator precedence. || has higher precedence than or, and other things in between. The perlop manpage has about everything you need to know. To steal an example from perlop, the following:
    unlink "alpha", "beta", "gamma" or gripe(), next LINE;
works like:
    unlink("alpha", "beta", "gamma") or (gripe(), next LINE);
but it would break using ||, because it would work like:
    unlink("alpha", "beta", ("gamma" || gripe()), next LINE;