in reply to Re^2: Error Undefined subroutine &main::OPEN called at C:\Perl\sku_corr2.pl line 8.
in thread Error Undefined subroutine &main::OPEN called at C:\Perl\sku_corr2.pl line 8.
If any of your input lines doesn't have 36 tabs in it, the split will leave $SKU undefined. To avoid the error message, add a line between before the print something like if (!defined $SKU) {$SKU = "<<<undef>>>"}