if you have a lot of elements doing the case conversion everytime you compare two elements this will be inefficent. i'd suggest:

my @imps =
  map { $_->[1] } 
    sort { $a->[0] cmp $b->[0] } 
      map { [ lc $_, $_ ] } 
        values %mips;
[download]