my @sorted = map{
    substr $_, 125;
} 
sort { $b cmp $a } map{
    sprintf '%0125d%s',
        $_ =~ m[,\s+(\d+)], $_;
} @msgs;