while (my $discard = ) {1}; # this would fix it