Hoi perl gurus

I have a question I can't solve.
I won't to assign a variable to a sheet name.
For example; if I choose 1 it write to sheet Jan, if I choose  2 it will write to sheet Feb 
...

But I can't assign the $sheet=Jan.
I get thet error...


use Spreadsheet::WriteExcel;
use strict;


# Create Excel workbook and sheets
my $workbook = Spreadsheet::WriteExcel-> new("perl.xls");
my $Jan = $workbook-> addworksheet("January");
my $Feb = $workbook-> addworksheet("February");
my $Mar = $workbook-> addworksheet("March");...

....

# Asking the period.
print "Give the period: "; my $PERIOD = <STDIN> ; chomp $PERIOD;
if ( $PERIOD=~ /1/ )
{
    my $sheet = 'Jan';
}

....

$$sheet-> write(0,1,"NA_NAME"); #I wont to write to sheet Jan, but I can't assign $sheet to t
he object sheet.

...

# close the connections
$workbook-> close();

Thanks in advance.

Greetings Miguel



                                      /////
                                     (o o)
==============oOO==(_)==OOo==============
                            Miguel Demaerel
                     System Engineer - SCSA
                             Schlumberger
   Email Miguel.Demaerel@[...].COM
=========================================


_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@[...].com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs