my @parameter = ();

while ( ... )
{
push @parameter, {-name => $name, -value => $value};
}