#! perl
use strict;
use warnings;
use Data::Dump;

sub foo
{
    dd \@_;
    my $val = $_[0];
}

my %bar;
my $baz;

foo( $bar{$baz} );