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