Just for practicing perl