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++;
    }

}