sort on several fields

$sorted = sort { field1( $a ) <=> field1( $b ) ||           # see PerlFAQ on this
                field2( $a ) cmp field2( $b ) ||
                field3( $a ) cmp field3( $b )
               }      @data ;