sub getWeekStr{

  my ($week1,$week2,$week3,$week4)= @_;
  my $weekStr;
  
for (my $x = 1;$x <= 4; $x++ )  {
  my $WEEK_PD = 'WEEK'.$x;
  my $stored_num = $_[$x-1];
  my $WEEK_PD_NAME = 'WEEK'.$x."_PD";

  $WEEK_PD_NAME = qq|<SELECT NAME="$WEEK_PD">|;

  $WEEK_PD =~ s/WEEK//;

for (my $y = 1;$y <= 4; $y++){

  if ($y =~ /$stored_num/) {
$WEEK_PD_NAME .= qq|<option selected value = "$stored_num">TEAM $stored_num</OPTION>|;
   }
  else
  {
  $WEEK_PD_NAME .= qq|<option value = "$y">TEAM $y</OPTION>|;
  }

  }

$WEEK_PD_NAME .= qq|</SELECT>|;

print $WEEK_PD_NAME;

my $weekStr .= qq|<td align=center width=25%>$WEEK_PD_NAME </td>|;

  }
return $weekStr;
}