1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | #!/usr/bin/perl -w use strict; sub useParam { my %params = @_; unless ($params{'aaa'}){ for(qw|aaa bbb|){$params{$_} = shift }; } die "Bad params!" unless ($params{'aaa'}); print qq~$params{'aaa'}\n~; } useParam('aaa'=>60, 'bbb'=>100); useParam('90','200'); 1; |