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

$Skalar = substr(@zeile[0],7_);
$Skalar2 = substr(@zeile[1],7_);
$Skalar3 = substr(@zeile[2],7_);

my $Pfad = "$skalar/save*/lab*.tmp";

use strict;
use warnings;

my @path;

open PROP, "test.prop" or die "Can't open test.prop: $!\n";
while ( my $zeile = <PROP> ) {
    push @path, substr( $zeile, 7 );
}
close PROP;

for my $path ( @path ) {
    print "$path/foo/bar/baz.txt\n";
}

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);

use FindBin;
my $file1 = "$FindBin::Bin/findorder.prop";
-f $file or die "Error: file '$file' gibbts nicht\n";
...