perl for perfmom