for (my $i=0; $i <=1; $i++){
        my @a;  
        $a[$i] = 99;
        print Dumper(\@a);
    }