use Sort::Key qw(nkeysort_inplace);
nkeysort_inplace { $_->[3] } @$points;