@array = grep $_ != 1, @array;
@array = grep{ $_ != 1 } @array;


@array = map ++$_, @array;
@array = mapp{ ++$_ } @array;

print for 1 .. 10;
for( 1 .. 10 ) {
    print;
}

push @a, $_ while <FH>;
while( <FH> ) {
    push @a, $_;
}