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