Select Code to Download

my $csvfile;
push (@report,(join "\t", $empid, @array),"\n")
...
print $_;
print $csvfile $_;
}

JKSLK    19890101    20000101    France    ALMERIA    100000.00    BCF
+GHK

Name    DOB    DOJ    Country    Region    Salary    Place
JKSLK1989010120000101FranceALMERIA100000.00BCFGHK