my $nr=0;
	for my $i (10..99){

		my $gdat= "$i.src";
		my $packpfad = '\xxx\xx\xxxx\HP0';
		my $config = $zielpfad.$packpfad.$gdat;
		if (-e "$config"){
			$hp[$nr]= "HP0$i.src";

			if ($verw_hp==1){
				my %conf;
				my $var;
				my $value;
				open(CONF,"<$config") || die "could not read config file: $config [!$]\n";
				while (<CONF>) {
					chomp;
					s/#.*//;
					s/^\s+//;
					s/\s+$//;
					next unless length;
					($var, $value) = split(/\s* \s*/, $_, 2);
					$conf{$var} = $value;
					};
				close(CONF);
				
				$hpcomment[$nr] = $conf{"&COMMENT"};		
				}
			
			
			
		if ($verw_unterprog==1){ 
#########################################
#hier sollte es weiter gehen
#########################################
}
$i++;
$nr++;
}
}
		
}