messing with perl