my @sorted = map{
    substr $_, 5;
} 
sort { $b cmp $a } map{
    sprintf '%05d%s',
        $_ =~ m[,\s+(\d+)], $_;
} @msgs;
#SOME STUFF 
foreach my $warning(@sorted) {
	print OUT $warning unless ($warning =~ "<stuff I don't want>"); 
}