tracks/perl5/exercises/phone-number/.meta/exercise-data.yaml in trackler-2.2.1.131 vs tracks/perl5/exercises/phone-number/.meta/exercise-data.yaml in trackler-2.2.1.132

@@ -1,11 +1,11 @@
 exercise: PhoneNumber
-version: 3
-plan: 16
+version: 4
+plan: 15
 subs: clean_number
 tests: |-
   foreach my $subcases (@{$C_DATA->{cases}}) {
-    is $subs{clean_number}->($_->{input}{phrase}), $_->{expected}, $_->{description} foreach @{$subcases->{cases}};
+    is clean_number($_->{input}{phrase}), $_->{expected}, $_->{description} foreach @{$subcases->{cases}};
   }
 
 example: |
   sub clean_number {
     my ($number) = @_;