while(@stock) {
 foreach $line (@stock) {