Select Code to Download

        for (my $i=0; $i<=$#my_data;$i++)

        for my $i (0 .. $#my_data)

        for ($i=0; $i<=$#my_data;$i++)
        {print $my_data[$i], "\n";
        }

        for (@my_data)
        {print $_, "\n";
        }