foreach my $w (0..$#array){
    print "$array[$w]\n";
};