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

my @list = sort { ( ($b eq $first) <=> ($a eq $first) )
               or (    lc($a)      cmp     lc($b)     )
               or (       $a       cmp        $b      ) }
           keys %$hash;