sub do_this_cool_function {
    my %params = @_;
    for my $k (keys %params) {
        print $k, " => ", $params{$k}, "\n";
    }
}