Always, at the top of your Perl code:

use warnings;
use strict;
[download]

Now:

@Variable[$X]=$Year."-".$Months{$Month} ."-" . $Day ;
[download]

You have not declared the @Variable array. You have @Variables. Also, when assigning to an array *element*, use scalar context:

$Variables[$X] = ...;
[download]