my $var = ; while ($var = )