use strict;
use warnings;

sub quux {
    my $foo = shift;
    my $bar = shift;
    my $baz = shift;

    print "FOO:$foo BAR:$bar BAZ:$baz\n";
}

quux(1, 2, 'three');
quux(one => 2, 3);  # illustrate "fat comma"