$ perl -wle'use strict; map +(my $x = $_), 2; print $x'
Use of uninitialized value in print at -e line 1.