Internal Server Error - stuck on syntax error

#!/usr/bin/perl
# date.cgi - converts a numeric date to a string
use CGI qw(:standard);
print "Content-type: text/html\n\n";
 
# declare variables for date
my (@months);
my ($tmon);
my ($i);
my ($a);
my ($date);
my ($m); # month
my ($d); # day
my ($y); # year
 
 
# assign input item to variable
# initiate all variables either start at 0 or use param()
$date = param('date');
$m    = 0;
$d    = 0;
$y    = 0;
 
# array of months
@months   = ("January","February","March","April","May","June","July","August","September","October","November","December");
# tmon is 12
$tmon = @months;
$i    = 0;
$a    = 0;
 
#split date apart using split() on "/"
my @date = split("/", $date);
$m       = $date[0]; # array pos 0
$d       = $date[1]; # array pos 1
$y       = $date[2]  # array pos 2
 
# if for year add on "20 then XX"
if (length($y) == 2){
    $y= "20".$y;
}
# if for date
if (length($d) == 2){
    my @d = split("", $d);
    if ($d[0] == 0){
        $d = $d[1]
        }else{
        $d = join("", @d);
    }
}
#if for month - bring month array
if (length($m) == 2){
    my @m = split("", $m);
    if ($m[0] == 0){$m = $m[1]
        }else{
        $m = join("", @m);
    }
}
 
for ($i,$i<=$tmon,$i++)
{
    $a=$i-1;
    if ($m = $i){$m = $ms[$a];}
}
;
# print out final date
print "<b>The date is:</b> $m $d, $y\n";