X   4143  61
Y   51    1325
Z   543   1543

##</code><code>##

Y   51    1325
X   4143  61
Z   543   1543

##</code><code>##

use strict;
use warnings;
use Data::Dumper;

my @sorted = map {pop @$_
} sort {
  $a->[0] <=> $b->[0] || $a->[1] <=> $b->[1]
} map {
  [
   (sort {
     $a <=> $b
   } @$_[1,2]),$_
  ]
} map { [split /\s+/] } <DATA>;

print Dumper \@sorted;

__DATA__
A 15134 135
B 413 6161
C 33 16199
D 16141345 135