while (defined(my $line = <STK>)) {  # Avoid loading file into mem.
   chomp($line);                     # Remove trailing newline
   my ($stock) = split(/ /, $line);
   ...
}