my ($name, $dept, undef, $status) = qw(one two three four);
print "$name, $dept, $status\n";

__OUTPUT__
one, two, four