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

##</code><code>##

JKSLK	19890101	20000101	France	ALMERIA	100000.00	BCFGHK

##</code><code>##

Name	DOB	DOJ	Country	Region	Salary	Place
JKSLK1989010120000101FranceALMERIA100000.00BCFGHK