my @array = ('Froschpopo', 'Hallo Welt');

funktion(\@array);

sub funktion {
     my $args = shift;

     my $output = weiter($args);

     my $name = $output->{NAME};
     print "Hallo $name\n";

}

sub weiter {
     my $name = shift->[0];
     my %hash = (NAME => $name);
     return \%hash;
}