Learning perl and practice