my($stuff1, undef, undef, $stuff4) = @array;

##</code><code>##

my($stuff1, $stuff4) = @array[0,3];