#!/usr/bin/perl -w

use strict;
use Storable;

for($i=0; $i<5001; $i++) {
our %docs;
open(IN,"/info/$i.txt") || die $!;
my @file = <IN>;
$docs{$i} = @file;
close(IN);
}
store(\%docs, '/info/docs');