#!/usr/bin/perl

use strict;

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

exit;

__END__

##</code><code>##

C:\Steve\Dev\PerlMonks\P-2013-07-11@1436-CSV-Fail>perl csvfail.pl
Global symbol "@report" requires explicit package name at csvfail.pl line 6.
Global symbol "$empid" requires explicit package name at csvfail.pl line 6.
Global symbol "@array" requires explicit package name at csvfail.pl line 6.
Global symbol "@report" requires explicit package name at csvfail.pl line 7.
syntax error at csvfail.pl line 7, near ") {"
syntax error at csvfail.pl line 10, near "}"
Execution of csvfail.pl aborted due to compilation errors.