I need help sorting a list

[ToddAndMargo via perl6-users]

Hi All,

https://docs.raku.org/routine/sort

I need help sorting a list.

This is the list of values I want to sort:

H:\MyDocsBackup\backup1
H:\MyDocsBackup\backup2
H:\MyDocsBackup\backup126
H:\MyDocsBackup\backup3
H:\MyDocsBackup\backup33
H:\MyDocsBackup\backup6


This is what I want back:

H:\MyDocsBackup\backup1
H:\MyDocsBackup\backup2
H:\MyDocsBackup\backup3
H:\MyDocsBackup\backup6
H:\MyDocsBackup\backup33
H:\MyDocsBackup\backup126


This is how I did it in Perl 5, but I can't
figure out what I did!  :'(  :'(  :'(

@Sorted_List = sort {
   my @a = split /.*\D/, $a;
   my @b = split /.*\D/, $b; $a[1] <=> $b[1]; } @Unsorted_List;


Many thanks,
-T