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