my $shape  = Box->new(length=>10, width=>5, height=>3); # might make sense.
my $string = SuperString->new(text=>"foobar");          # probably doesn't.
my $substr = mysubstr(Search=>"bigbigstring",For=>"big", Occurence=>2); # UGLY!