TT#68300 Use ->() instead of deprecated & sigil

Change-Id: I42557b823af44f9d8c230018f8cc0a4086b94a59

bin/ngcp-credit-warning

@@ -114,11 +114,11 @@ sub get_data {
         my $res_hash = $res->as_hash;
         my $data = $res_hash->{_embedded}{'ngcp:'.$link};
         if ('ARRAY' eq ref $data) {
-            unless (&$process_code($data)) {
+            unless ($process_code->($data)) {
                 push(@result,@$data);
             }
         } elsif ($data) {
-            unless (&$process_code([$data])) {
+            unless ($process_code->([ $data ])) {
                 push(@result,$data);
             }
         }

bin/ngcp-fraud-notifier

@@ -90,7 +90,7 @@ sub get_data {
             push(@result,$data);
         }
         if (defined $code and 'CODE' eq ref $code) {
-            &$code(\@result);
+            $code->(\@result);
             @result = ();
         }
     }