As written your code is not Perl or any other language that I recognise. However, piecing together hints from your rather incoherent description and your totally random code it may be that the following is somewhere near what you want:

use strict;
use warnings;

my $obj = bless {i => 1, j => 0};

$obj->run (1100, 20);


sub run {
    my ($self, $end, $start) = @_;
    my $records_to_be_feched =
        $end - 20 * $self->{i}++ - ($start - 20 * $self->{j}++);
}
[download]

There are many ways this could be achieved. I have chosen to use a light weight object to carry the counters around rather than make them global variables. I've no idea what start and end should be so I've just passed them in as parameters.

Try this code instead:

use strict;
use warnings;
my ($i , $j);
$i = 1;
$j = $i - 1;
sub bca{
     $i = $i+1;
     $j = $j+1;
}
print "Before SUB call \$i=$i\n";
bca();
print "After  SUB call \$i=$i\n";
[download]

use strict;
use warnings;

{
my $persistent;
sub myFunc {
    return ++$persistent;
}}

print myFunc();
print myFunc();
print myFunc();
[download]

In newer Perls, you can also use

use strict;
use warnings;
use feature qw/state/;

sub myFunc {
    state $persistent;
    return $persistent++;
}

print myFunc();
print myFunc();
print myFunc();
[download]

my ($i , $j);
$i = 1;
$j = $i - 1;
print "before sub value of i=$i\n";
sub abc
{
     $i = $i+1;
     print "inside sub $i\n";
     $j = $j+1;
}
abc();
print "after sub $i\n";
[download]

before sub value of i=1
inside sub 2
after sub 2
[download]