perl使用散列传递函数参数的有关问题

perl使用散列传递函数参数的问题
我在程序调用时定义了一个散列

%paralist={'dbtype'=>$dbtype,'dbuser'=>$dbuser,'dbpasswd'=>$dbpasswd,'dbip'=>$dbip,'filetype'=>$filetype,'filedir'=>$filedir,'filetempdir'=>$filetempdir,'distinctionno'=>$ARGV[1]};

我想把%paralist作为函数new（）的参数传入，
请问我如何在自定义函数中new（）中使用这个传入的散列参数，调用时，new函数如何使用%paralist这个散列。

[解决办法]

Perl code

sub new {    my %h = @_;    print %h;}my %p = ('a' => 'b', 'c' => 'd');new(%p);