#!/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;
}