diff --git a/helper/compare_dbs.pl b/helper/compare_dbs.pl
index b051734..7f9653b 100755
--- a/helper/compare_dbs.pl
+++ b/helper/compare_dbs.pl
@@ -235,7 +235,7 @@ __USAGE__
 }
 
 sub is_exception {
-    my $exceptions, $type, $schema, $element, $attr) = @_;
+    my ($exceptions, $type, $schema, $element, $attr) = @_;
 
     $attr //= '';
     foreach my $exception (@{$exceptions}) {