Break en perl

[mgrubio]

Hola. Este es mi codigo, me gustaria que cuando $linea fuera 1, se pasara a la siguiente iteracion del while, pero no me reconoce el break, ¿como puedo hacerlo?

while(<BIN>) {
if ($linea ==1){
$linea ++;
break;
} else {......}
}