@bad = map {$_++} (1,2);
@bad = grep {$_++} (1,2);