while (<FILE>)
{
    chomp;
    my ($file, $name, $keyword) = split /:/, $_;
    push @File,     $file;
    push @Name,     $name;
    push @Keywords, $keyword;
}