my @buchstaben = ( 'a' .. 'z' );
my @zahlen = ( 0 .. 9 );

process_lists( \@buchstaben, \@zahlen );

sub process_lists {
    my( $buchstaben, $zahlen ) = @_;

    print "Buchstaben: @{$buchstaben}\n";
    print "Zahlen: @{$zahlen}\n";
}