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