practice in perl