my @sorted = sort { substr($b,0,8) <=> substr($a,0,8) || substr($a,8) <=> substr($b,8) } @unsorted;