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 = |
                              .  qq|"$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;
}