in reply to Skip return values

my ( undef, undef, $c, $d ) = sample();

[download]

In Section Seekers of Perl Wisdom