(undef, my $foo, undef, my $bar) = @array;

##</code><code>##

my $foo = "ab";
(my $avar, $foo) = ($foo =~ /(.)(.)/);