Thanks for all your posts

I think I will take the solution from eleron because this function will be used by more people that is not experience with Perl programming and I don't want to confuse them.

I am planning to use an OO module, right now I have a simple module but my design requires and object to keep track on several variables.

Regarding the OO implementations with arrays I don't think that will be too much problem (I hope) because I have seen in many modules the implementation in this way:

my $object = new Object();
$object->hash(
    uno  => 'one',
    dos  => 'two',
    tres => 'three',
);
[download]

sub hash {
    my $class = shift;
    my $param = {@_};
    $class->{uno} = $param->{uno};
    print $class->{uno}, "\n";
}
[download]

So this way I can save in the object the variable with value "one".