practicing perl