<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=us-ascii">
<META NAME="Generator" CONTENT="MS Exchange Server version 6.5.7653.2">
<TITLE> best Perl syntax</TITLE>
</HEAD>
<BODY>
<!-- Converted from text/rtf format -->
<P><FONT COLOR="#0000FF" SIZE=2 FACE="Arial">Can't use the word h31p in the subject line!!!</FONT>
</P>
<P><FONT SIZE=1 FACE="Tahoma">_____________________________________________ </FONT>
<BR><B><FONT SIZE=1 FACE="Tahoma">From: </FONT></B> <FONT SIZE=1 FACE="Tahoma">Tosh, Michael J </FONT>
<BR><B><FONT SIZE=1 FACE="Tahoma">Sent: </FONT></B> <FONT SIZE=1 FACE="Tahoma">Thursday, June 19, 2008 12:12 PM</FONT>
<BR><B><FONT SIZE=1 FACE="Tahoma">To: </FONT></B> <FONT SIZE=1 FACE="Tahoma">'developers@bugzilla.org'</FONT>
<BR><B><FONT SIZE=1 FACE="Tahoma">Subject: </FONT></B> <FONT SIZE=1 FACE="Tahoma">best Perl syntax</FONT>
</P>
<P><FONT SIZE=2 FACE="Arial">Can someone please help me fix this code, seems a little repetitive:</FONT>
</P>
<P><FONT SIZE=2 FACE="Arial">my @labs = qw/ lab1 lab2 /;</FONT>
<BR><FONT SIZE=2 FACE="Arial">my @days = qw/ Monday Tuesday Wednesday Thursday Friday Saturday Sunday /;</FONT>
</P>
<P><FONT SIZE=2 FACE="Arial">$vars->{'labs'} = \@labs;</FONT>
<BR><FONT SIZE=2 FACE="Arial">$vars->{'days'} = \@days;</FONT>
</P>
<P><FONT SIZE=2 FACE="Arial">Isn't there a better way to write that?</FONT>
</P>
</BODY>
</HTML>