my $line = join /\t/ , ($empid, @array);
push @report, $line;

##</code><code>##

Name	DOB	DOJ	Country	Region	Salary	Place
JKSLK1989010120000101FranceALMERIA100000.00BCFGHK

##</code><code>##

Name	DOB	DOJ	Country	Region	Salary	Place
JKSLK 1989010120000101   France  ALMERIA 100000.00BCFGHK