use strict;
use warnings;

sub func {
    my $arr = shift;
    print $$arr;
}

my @arr = ("null","eins","zwei","drei");
func(\$arr[2]);