@a = map { $_ = 3; } [];

##</code><code>##

@a = map { $_ = 3; } $x.$y;