Select Code to Download

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

#!/usr/bin/perl --
use strict; use warnings;
use Text::Table;
...
                                                                      
+       
Ro                        Sham                      Bo                
+       
Ro                        Sham                      Bo

$Employee{Name}       = $1 if /^The employee name is  : (\S+)$/mgsi;
$Employee{Age}        = $1 if /^Age: (\d+) years$/mgsi;
...
    $tb->load ...;
    undef %Employee;
}