Neither your sample nor your description make it clear how you want the data sorted. However the following may help you sort out whatever it it you want to do:

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'
[download]

Prints:

147  0,wuprm00a0539
148  0,wuprm00a0539
31  0,wupra00a0535
151  0,wupra00a0532
150  24,wppra01a0016
149  28,wppra02a0015
152  15,wppra01a0015
[download]