@result = map {substr $_, 2} sort map {sprint "%02d%s", (/$mask/ ? $1 : 0), $_} @f;