@array = (); ##

##

$line =~ $_

##

##

while($line = ) {
 ...
}

##

##

while () {
  chomp;
  @array = split /\s+/;
  ...
}