I followed your links too but this problem is still unsolved. UPDATE: here is the modified code which is also not working

#!/usr/lib/perl
use DBI;
use strict;
use Text::Table;

my ($dir,@files,$file,$output_file,$line,%Employee);
$dir="D:/ckj/dummy";
chomp($dir);
$output_file="D:/ckj/dummy/rep.txt";
opendir(DIR,"$dir") or die $!;
@files=readdir(DIR)  or die $!;  
close DIR;
my $tb = Text::Table->new("NAME\n-------", "Age\n-------", "Department
+\n-------");
open(FH1,">$output_file")  or die $!;  
foreach $file (@files){
    open(FH, "<$dir/$file") or die $! if($file=~/\.txt$/);
    while($line=<FH>){
         while($line=~/employee name is  \: (.*?)\n/g){
             $Employee{"Name"}=$1;
         }
         while($line=~/Age\: (.*?)\n/g){
             $Employee{"Age"}=$1;
         }
         while($line=~/Department\: (.*?)\n/g){
             $Employee{"Dept"}=$1;
         }
         #$tb->load([$Employee{"Name"},$Employee{"Age"},$Employee{"Dep
+t"}]);
         if( /^\s*$/ ){
             $tb->load([$Employee{"Name"},$Employee{"Age"},$Employee{"
+Dept"}]);
             undef %Employee;
         }
    }
    close FH;
}
print FH1 $tb;
close FH1;
print "Congratulations, report file has been saved as $output_file";
[download]

O/p is like this:

NAME    Age      Department
------- -------  -------   
                           
                           
Ram                        
        25 years           
                 HR        
                           
Ravi                       
        28 years           
                 HR
[download]

UPDATE: It's done by using :

if($Employee{"Name"} && $Employee{"Age"} && $Employee{"Dept"}){
             $tb->load([$Employee{"Name"},$Employee{"Age"},$Employee{"
+Dept"}]);
             undef %Employee;
         }
[download]