satisfied perl critic once more