while ( defined( $line = <> ) ) my @alelos = split ";", $line;