Or shift it like this:

#!/usr/bin/env perl

use strict;
use warnings;
use feature qw(say);
use JSON::Tiny qw(encode_json);

my %hash = ( foo => 'bar', nose => 'cuke' );

say completeResultHash( \%hash );

sub completeResultHash {
    encode_json(shift);
}

__END__
[download]

Regards, Karl