my ($foo, $bar, $baz, $bup, $quz, $pig, $cow) = splice @_, 0, 6;