Select Code to Download

foreach $i (keys %Index_db) {    
    if ($i == $id) {
...
    .
    }
}

$id = $Words_db{$word};
@fileId = split( /:/, $Index_db{$id});