use feature qw(say);
use warnings qw(numeric);
my $foo = ""; say $foo+1;  # why does this warn,
my $bar = []; say $bar+1;  # when this does not?