Select Code to Download

open(FILE, "<", "Q.txt");

        while($number <= $#column) {       #go through the array from 
+0 to the last element
                   $number++;
                 }

for my $element (@array_name) {
    # Do something with $element here
}

for my $index (0 .. $#array_name) {
    # Do something with $index here
}