my @array = (2,4,7,5,8);;
my $i = 0;;
++$i until $array[ $i ] == 7;;
print $i;;
2