...
if ( scalar( @keywords ) <= 1 ) {
    print "\b!";
}
else {
    # replace file extension in filename for dict file 
    $file =~ s/vim$/dict/;
    open DICTFILE, "> $dictdir/$file" or die "$dictdir/$file: $!\n";
    {
        local $" = $/;
        print DICTFILE "@keywords" . $/;
    }
    close DICTFILE or die "$dictdir/$file: $!\n";
}
...