sub take_one_and_hash { my $one = shift; my %hash = @_; ## frobulate $one based on %hash . . . }