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

Or shorter:

while (<STK>) {
   chomp;
   my ($stock) = split / /;
   ...
}
[download]