use strict;
use warnings;

my @array = map {$_->[0]}
    sort {$b->[5] <=> $a->[5] || $b->[3] <=> $a->[3]}
    map {[$_, /(\d+),(\D+)(\d+)(\D+)(\d+)/]}
    map {chomp; s/'//g; $_} <DATA>;

print join "\n", @array;

__DATA__
31  '0,wupra00a0535'
147  '0,wuprm00a0539'
148  '0,wuprm00a0539'
149  '28,wppra02a0015'
150  '24,wppra01a0016'
151  '0,wupra00a0532'
152  '15,wppra01a0015'