use Report;
$rep = Reporter->new();
my $id = "1";
my $value1 = "Some Process A";
$rep->getParameter($id,$value1);
#will do something
#will do something
my $id = "2";
my $value2 = "Some Process B";
$rep->getParameter($id,$value2);

##</code><code>##

 
Report.pm
sub getParameter
{
	my ($self, $id,$value) = @_;
	my $hash = {
		'Key' => $id,
		'Value' => $value
	};
#The idea is that I need to keep writing the values so obtained in an xml format..
		
}

##</code><code>##

<Parameter key="1">Some Process A</Parameter> 
  <Parameter key="2">Some Process B</Parameter>