#!/usr/bin/perl
open(DICT, "</usr/local/muller/dict/muller.koi") || die "  !";

while (<DICT>) {

    if ($_ =~ /(^.)/) {
	$Symbol = lc($1);
	open(TMP, ">>sort/muller.koi.$Symbol");
	print TMP $_;
	close(TMP);
    }

}

close (DICT);