for (0 .. 10) 
{ 
    print $_, ", "; 
    print $_ + 1, "\n"; 
}

 
# Assigning value to $offset as 0 or whatever will be the $pagenum i.e. 1 or 2 ....  
$offset=param('page')? $limit*param('page') :0; 

$entries_per_page = 10 unless ($entries_per_page =~ m/^[1-9]\d*$/); 
 
my $page = Data::Page->new;  
  
$page->total_entries($total_entries);  
$page->entries_per_page($entries_per_page);  
$page->current_page($current_page);  
  
# pageset 
my $first_page = $page->first_page; # should always be 1. 
my $last_page = $page->last_page; 
 
# resultset 
my $offset = $page->first - 1; # will be 0 if on first page. 
my $limit = $page->entries_on_this_page;

my $i = 0; 
while ( $i < 10 ) 
{ 
   $i = $i + 1;   
} 
# do something with $i.

my $i = 0; my ($j, $k); 
while ( $i < 10 ) 
{ 
   $i = $i + 1;   
   $j--; 
   $k = 2 * $i + $j; 
} 
($j, $k) = (0, 0); 
# do something with $i.