# create a callback subroutine to generate the data to be paged
my $get_data_sub = sub {
     my ($offset, $rows) = @_;
     my @return_array;

     for (my $x = 0; $x < $rows; $x++) {
        push(@return_array, [ $row ]);
     }
     return \@return_array;
}