@sorted = sort { "$SCALAR{$a}[0] $SCALAR{$a}[1]" cmp "$SCALAR{$b}[0] $SCALAR{$b}[1]" } keys %SCALAR;