for($i = $#sizes; $i >= 0 ; --$i)
{
	print $sizes[$i];
}

##</code><code>##

for(my $i = 0; $i <= #$arrayref; $i+=2)
{
 print "$i: $arrayref->[$i]\n";
}


##</code><code>##

for my $i (0 .. $#$arrayref)
{
    print "$i: $arrayref->[$i]\n";
    $i++;
}