messing around with perl