use strict; use warnings; params (-first => 'first', -second => 'second'); sub params { my %params = @_; print "$_: $params{$_}\n" for sort keys %params; } #### -first: first -second: second