Select Code to Download

sub dictcmp
{
...
      $bc = $b[3];
   }
}

my @list = ( "x10 y", "1abc", "a10y", "x9y", " b1" );
print join "\n", sort dictcmp @list;

1abc
a10y
 b1
x9y
x10 y