my ($i , $j); $i = 1; $j = $i - 1; my abc{}; my bca{ my $records_to_be_feched = $end - (20 * $i) - ($start - (20 * ($j))); $i = $i+1; $j = $j+1; }