#!/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 "no parameter!\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;
}