while (my $var) { #do something with $a }