perl: fix tests