my $x;
foreach $x () {}