sub procedure1{ my $class = shift; my %parameters = @_; my $var1 = $parameters{var1}; my $var2 = $parameters{var2}; } procedure1( var1 => 'value', var2 => 'value2' );