use strict;
use warnings;
my @sorted = sort { $a->[1] <=> $b->[1] } (undef, undef, undef);