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

&funktion(\@array);

sub funktion {
      my $args = shift;

      my $output = &weiter($args);

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

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