my $yearString = YearArrayToString(@yearArray);
sub YearArrayToString
{
    my @years = @_;
    my $string = $years[0];
    my $lastYear = $years[0];
    if ($#years < 1)
    {
        return $string;
    }

    my $yearNum = 1;
    while ($yearNum <= $#years)
    {
        if ($lastYear+1 == $years[$yearNum])
        {<br>
            while (($yearNum <= $#years) and ($lastYear+1 == $years[$yearNum]))
            {
                $lastYear = $years[$yearNum];
                $yearNum++;
            }
            $string = $string."-".$lastYear;
        }
        else
        {
            $string = $string.", ".@years[$yearNum];
            $lastYear = $years[$yearNum];
            
        }
        if ($years[$yearNum] == $lastYear)
        {
            $yearNum++;
        }
    }
    return $string;
}