sub ai {
	open AI, "/home/jakob/ai" or die "Kann Dateihandle nicht öffnen: $!";
	my $ai = <AI>;
	my @ai = split /:/, $ai;
	my $zeit1 = time();
	foreach $ai (@ai) {
		my $zeit2 = time();
		my $zeitspanne = $zeit2-$zeit1;

		if ($ai == $zeitspanne) {
			print @letters;
		}
		redo;
	}
}