practise perl programming