@someList = sort { $a->Foo <=> $b->Foo || $a->Bar cmp $b->Bar } @someList;