my @num =(1..10);
my @words = qw(hello world inside);
function( {NUMBERS=>\@num, WORDS=>\@words} );
exit;
sub function {
  die "no parameter!\n" unless @_;
  my %opt = %{ shift @_ };

  my @i_words = $opt{WORDS};
  print "this r words", Dumper \@i_words;

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