thanks Eliza - forget ord was one of the functions for which you don't need to include $_ as it works on that automatically

1 files changed, 1 insertions, 1 deletions

diff --git a/challenge-135/james-smith/perl/ch-2.pl b/challenge-135/james-smith/perl/ch-2.pl
index e0911fe6bd..2442b6abd6 100644
--- a/challenge-135/james-smith/perl/ch-2.pl
+++ b/challenge-135/james-smith/perl/ch-2.pl
@@ -40,7 +40,7 @@ sub is_sedol {
 sub is_sedol_compact {
   return 0if$_[0]!~/^[\dB-HJ-NP-TW-Z]{6}\d$/;
   my($t,@w)=qw(0 1 9 3 7 1 3 1);
-  $t+=(/\d/?$_:-55+ord$_)*pop@w for split//,$_[0];
+  $t+=(/\d/?$_:-55+ord)*pop@w for split//,$_[0];
   $t%10?0:1
 }