#!/usr/bin/env perl

use 5.025003;
use strict;
use warnings;

no warnings 'experimental::refaliasing';
use experimental qw{refaliasing declared_refs};
use feature 'declared_refs';

{
    my $str  = \'string';
    my $list = [qw{a b c}];
    my $map  = {x => 24, y => 25, z => 26};

    func($str, $list, $map);
}

sub func {
    my (\$string, \@array, \%hash) = @_;

    say $string;
    say "@array";
    say "$_ => $hash{$_}" for sort keys %hash;

    return;
}

##</code><code>##

$ perl -v | head -2 | tail -1
This is perl 5, version 25, subversion 9 (v5.25.9) built for darwin-thread-multi-2level
$ pm_1179933_test_exp_declared_refs.pl
string
a b c
x => 24
y => 25
z => 26