Starting out in perl (learned it years ago, now having to re-learn)