Select Code to Download

my $x=1;
while($x <= $EMPnum)
...
$x++;
}

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