Running PERL script on all rows