# this searches on Date1
my @sorted_list = sort {
   ${split(/_/,$a)}[0] cmp ${split(/_/,$b)}[0] } @list;
       # [0] is Date1, [1] is Date2, [2] is type.asp