An alternative method is to use eval. In the while loop, try something like this in place of the bare push:

eval "push \@$category, $item;";
[download]