while($actchar = getc(INFILE)){
    push @file, $actchar;
    $laenge++;
}