found perl critic. a little bit tidier now...