my $Arealday = sprintf( '%02d', $Aday );