#! /usr/bin/perl -w

use strict;
use Plucene::Simple;
use Data::Dumper;

my %documents;

    my $index = Plucene::Simple->open( "~/MyPerl/QA/data/" );
    for my $id (keys %documents) {
        $index->add($id => $documents{$id});
    }
    $index->optimize;

print Dumper \%documents;

##</code><code>##

$VAR1 = {
    "file1.txt" => "The content...",
    #etcetera
 };