@acht = ("8"); @neun = ("9"); for (0..10){ push @acht, $acht[-1]+8; push @neun, $neun[-1]+9; } for (@neun){ if ($acht[$_] == $neun[$_]){ print "$_ sekunden "; } }