foreach (@{$info{EmpNum}}) {
 print "\t$info{$_}>[0]          $info{$_}->[1]\t$info{$_}->[2]\t$info{$_}->[3]\n";
             }