[perl]Scalar Array

#!/usr/bin/perl
$i=0;
$array[0]="a"; $array[1]="b"; $array[2]="c"; $array[3]="d";
while ($i<=$#array){
        print "i=$i  array= $array[$i]\n";
        $i++;
}