my @array = ([1,15,42], [5,2,36], [10,10,220]);

# then you can use
print "@$_\n" for sort { $a->[1] <=> $b->[1] } @array;

# or
@array = sort { $a->[1] <=> $b->[1] } @array;