@filenames = qw/English  Kana  Kanji/;
foreach my $file (@filenames) {
    open FILE, "<$file";
    while(chomp($line = <FILE>)) {
        print "$line    ";
        last;
    }
    close FILE;
}