Das ist nur ein Codeschnippsel, bitte nicht wegen Strict oder so
tadeln :) Danke

open(PROP, "findorder.prop");
@zeile = <PROP>;

$ASTRAa = substr($zeile[0],11);

$ASTRAb = substr($zeile[1],11);

$BHBa = substr($zeile[2],9);

$BHBb = substr($zeile[3],9);