perl -wle'
@a = (23);
$_ = 42;
push @a;
print for @a'
Useless use of push with no values at -e line 4.
23