for ( "a" ) { 
  $_ = 1;
}

# Or
for ( "a" ) { 
  while (<>){
  }
}