http://www.perlmonks.org?node_id=196737


in reply to Re: Re: Re: Re: Style, style, style
in thread Style, style, style

You might want to at least introduce your co-worker to the wonders of splice: my ($foo, $bar, $baz, $bup, $quz, $pig, $cow) = splice @_, 0, 6;

Makeshifts last the longest.