sub foo { my $self = shift; my $hash_ref = shift;