package Do_Something

my %repeated = init();

foo( X, %repeated);

bar( Y, %repeated);

...

##</code><code>##

my $obj = Do_Something->new(%init);

$obj->foo(X);

$obj->bar(Y);

##</code><code>##

my $obj2 = Do_Something->new(%other_init);