# ignore first two args
my (undef, undef, $foo, $bar, $baz) = @_;