my @lines = <READ>;
my $i = 1;
foreach my $x (@lines) 
{
    if ($x =~ m/\A\1\A/)
    {
        print "JJAAA....es sind zahlen da, man braucht keine Zeilennummern mehr \n";
        exit;
    }
    else
    {
        print WRITE "$i $_";
        $i++;
    }

}

if( $lines[0] =~ /^1/ ){
    exit;
}

# oder

if( substr( $lines[0], 0, 1 ) == 1 ){
    exit;
}

if ($lines[0] = ~/^1/){
print "OK...";
}
else
{
    #Hier soll er rausgehen (aus der Schleife springen und mit dem printbefehl "hier weitermachen" fortsetzen). mit "exit" beendet er ja das Programm, das soll er aber nicht!
}
print "hier weitermachen";

while(<DATA>) {
if( m/^1/){
        print "JJAAA....es sind zahlen da, man braucht keine Zeilennummern mehr \n";
        last;
}
print WRITE "$. $_";
}