I think you need to use splice instead of delete to modify the array.
splice @{$data->{page}} $dat 1 should do what you want (untested).