use Data::Dump qw/ dd /;
dd [ $hash{"Name"},$hash{"Age"},$hash{"Dept"} ];

##</code><code>##

#!/usr/bin/perl --
use strict; use warnings;
use Text::Table;
my $tb = Text::Table->new(
 "NAME\n-------------------------",
 "Age\n-------------------------",
 "Department\n-------------------------"
);
$tb->load( [ qw/ Ro Sham Bo / ]);
$tb->load( [ "\nRo", "\nSham", "\nBo" ]);
$tb->load( [ qw/ Ro Sham Bo / ]);
print $tb;
__END__
NAME                      Age                       Department               
------------------------- ------------------------- -------------------------
Ro                        Sham                      Bo                       
                                                                             
Ro                        Sham                      Bo                       
Ro                        Sham                      Bo                       

##</code><code>##

$Employee{Name}       = $1 if /^The employee name is  : (\S+)$/mgsi;
$Employee{Age}        = $1 if /^Age: (\d+) years$/mgsi;
$Employee{Department} = $1 if /^Department: (.+?)\s*$/mgsi;

if( /^\s*$/ ){
    $tb->load ...;
    undef %Employee;
}