perl the hard way ch1 progress