teaching myself perl