use strict; use warnings; my @path; open PROP, "test.prop" or die "Can't open test.prop: $!\n"; while ( my $zeile = ) { push @path, substr( $zeile, 7 ); } close PROP; for my $path ( @path ) { print "$path/foo/bar/baz.txt\n"; }