my %seen;

while (<FILE>)
{
    chomp;
    my ($file, $name, $keyword) = split( /:/, $_, 3 );

    (my $filekey = $file) =~ s/-r$//;
    next if $seen{$filekey}++;
    ($File[$i], $Name[$i], $Keywords[$i]) = ( $file, $name, $keyword );
    $i++;
}