my $var
while (some_condition)
{
...
}