if ($a==3) {
  my $f= 'a' x10000;
}
#no $f, no waste