Since I have no idea what Klarf::Parser is (or what defectdata() returns, other than the obvious...a hash reference), I'd say do a print "$filename: $_\n"; before the other print. Of course, you'll have to save the filename instead of clobbering it into a parsed thingamabob.