#!/usr/bin/perl

use strict;

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

exit;

__END__