use strict;
use warnings;

my (undef, $param, undef, $other, @stuff) = dir();

print "undef, $param, undef, $other, @stuff";

sub dir {
    return (1, 2, 3, 4, 5, 6);
}

##</code><code>##

undef, 2, undef, 4, 5 6