Parsing

I’m busy parsing today… while (exists ($pain{$in[$ass]})) { print $_; }