for ($a=0; $a<= scalar(@abst_listing); $a++){

##</code><code>##

for ($a=0; $a< scalar(@abst_listing); $a++){

##</code><code>##

for my $a (0 ..  $#abst_listing){

##</code><code>##

use lib'/usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi/DBD/mysql.pm';

##</code><code>##

use lib '/usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi';