perl experimentation