for($i=7;$i<=1777;$i=$i+8) {
	 $macroman{$i} = @liste[$i];
	 print $macroman{$i};
}