use strict;
use warnings;

my @rawentries = (
   "1topEndbit",
   "2ndbit",
   "endBit3",
   "4thbit",
   "5thbit",
   "6OtherEndbit",
   "7Bitsecondfromend",
   "8Bitoneoffend",
   "9Anyoldbit");

print
   map  {"$_->[0]\n"}
   sort
   {
      $a->[1] <=> $b->[1] ||
      $a->[2] <=> $b->[2]
   }
   map
   {
      [
         $rawentries[$_],
         $rawentries[$_] =~ /Endbit/i ? 1 : 0,
         $_
      ]
   }
   0 .. $#rawentries;