#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my @numbers = (1..10);
my @words = qw(hello world outside);

function( {NUMBERS=>\@numbers , WORDS=>\@words} );
exit;

sub function {
    die "Keine Parameter übergeben!\n" unless @_;
    my %opt = %{ shift @_ };
    print Dumper \%opt;

    my @i_words = $opt{WORDS};
    print Dumper \@i_words;

    my @i_numbers = $opt{NUMBERS};
    print Dumper \@i_numbers;
}