my @A0A1 = (
    [2003,1],[2003,3],[2003,4],[2004,1]
);
my @A0A2 = (
    [2003,1],[2003,2],[2003,3],[2003,4],[2003,5],[2003,6],
    [2003,7],[2003,8],[2003,9],[2003,10],[2003,11],[2003,12],
    [2004,1],[2004,2]
);