In my experience, you'd need to change that slightly:

sub procedure1{
  my $class = shift;
  my %parameters = @_;
  my $var1 = $parameters{var1};
  my $var2 = $parameters{var2};
}

procedure1( var1 => 'value', var2 => 'value2' );
[download]

Note the extra shift in the definition of procedure1.