@data = ; chomp(@data); ##

##

  while ($line = ) {
    chomp $line;
    ...
  }

##

##

for ( split /\n(?=\S)/, $line )

##

##

for my $line (@lines) {