sort {  ( lc($a->[1]) cmp lc($b->[1]) )
     or (    $a->[0]  cmp    $b->[0]  ) }