in reply to simple simple split

Change this:
($size, $item) = split /|/, $row;
to this:
($size, $item) = split /\|/, $row;

You're splitting on a regular expression and '|' has special meaning there.

Steve
--