sub bozo {
    my ($this, $that) = @_;

    print "[$this] [$that]\n";
    print "@_\n\n";
}

bozo "this", "that", "the other";

@dip = ("a", "b", "c");
bozo("A", @dip, "Z");

bozo "10";

bozo (("T"), ("h"), ("a", "t"));