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