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