#!/usr/bin/perl
use strict;
use warnings;
use 5.010;

my $test1 = ['Birne','Apfel'];
my @test2 = ('Fred','Anna');
my %test3 = (foo => 'bar',abc => 'def');
my $test4 = 'string';
my @uebergabe = (
    0,
    1,
    2,
    [$test1,\@test2,\%test3,\$test4],
);

aufruf(\@uebergabe);

sub aufruf {
    my ($ref) = @_;
    if (defined $ref->[3] && ref($ref->[3]) eq 'ARRAY') {

        require Data::Dumper;
        local $Data::Dumper::Useqq;
        $Data::Dumper::Useqq = 1;
        local $Data::Dumper::Sortkeys;
        $Data::Dumper::Sortkeys = sub {
            my ($hash) = @_;
            return [(sort {$a =~ /^\d+$/ && $b =~ /^\d+$/ ? $a <=> $b : lc($a) cmp lc($b)} keys %$hash)];
        };

        foreach my $keyref (@{$ref->[3]}) {
            say Data::Dumper::Dumper($keyref);  # hier weiß ich nicht, dass die test1, test2 usw. heißen
        }
    }
}