For a start you really, really, really need to use strictures (strict, warnings). %Items !~ m/"<us:"|"<oa:"(.*)/ is bogus - how do you apply a regex match to a hash?

What do you expect while (<>) to do?

It would help a lot if you provided just sufficient sample data to demonstrate the issue. You should provide the output that matches your sample data and the output you expect.