(undef, *a) = \(undef, "cons");
$a = "something";
print "$a\n";
__END__
something