use Sort::Key qw(nkeysort_inplace);

nkeysort_inplace { $_->[5] } @box;