some tests I'm using to learn perl