open is spelt open, not OPEN and the same goes for close, split and print. Perl is case sensitive.

As to why $SKU isn't printing what you expect, I can't say. You didn't show us a (small) sample of your input.