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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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