my perl experiments