While(<DATA>)
{
next if ($_ =~ /^#/ || $_ =~ /^EmpNum/);
push (@EMP, $_);
foreach $emp (@EMP)
{
push (@emp, EMP[#emp])
}
}