do less perls while im messing with getting it to work