#!/apps/bin/perl -w

my (@array, @sorted) =();
while (<>) {
    chomp;
    push (@array, $_);
}

@sorted = 
    map {$_->[0]}
    sort {$a->[1] <=> $b->[1]}
    map {
        my ($sortvalue) = /(\d+)$/;
	[$_,$sortvalue];
    } @array;



print "@sorted\n";