my @sorted=map { substr($_,4) } sort map { pack("LA*",tr/eE/eE/,$_) } @words;