Select Code to Download

use warnings;
use strict;
...
    my $i = $a_obj->( 'index' );
    print "got $var at $i\n";
}

got a at 0
got b at 1
...
got e at 4
got f at 5
got g at 6