PROCESS_DT IN '01/01/2009' 
PROCESS_DT IN '05/23/2006' 
PROCESS_DT IN '01/01/2011' 
PROCESS_DT IN '04/19/2009' 
PROCESS_DT IN '07/01/2009' 

##</code><code>##


#my @sort = sort { $a <=> $b } @GoodToMove; 
#my @sort = sort { uc $a cmp uc $b} @GoodToMove; #my @sort = sort { lc($a) cmp lc($b)} @GoodToMove; 
#my @sort = sort { $b cmp $a } @GoodToMove;
#my @sort = map { $_->[0] } 
# sort { (split /\'/, $a, 1)->[1] cmp (split /\'/, $b, 1)->[1] } 
# map { [ $_, uc( (/\d+\s*(\S+)/)[0]) ] } @GoodToMove; 

#my @sort =
# map $_->[0],
# sort { $a->[1] cmp $b->[1] }
# map [ $_, join('', (/(..)-(..)-(....)/)[2,1,0]) ],
# # map [ $_, join('', (/(..):(..):(..)/)[2,1,0]) ], @GoodToMove;
 
my @sort =
 map { $_->[0] } 
 sort { (split /\'/, $a, 0)->[1] cmp (split /\'/, $b, 0)->[1] } 
 map {
 m/(\d\d)\/(\d\d)\/(\d{4})/;
 [$_, "$3$2$1"] 
 } @GoodToMove;