You could replace

my %daything = (

        " 1" => "01",
        " 2" => "02",
        " 3" => "03",
        " 4" => "04",
        " 5" => "05",
        " 6" => "06",
        " 7" => "07",
        " 8" => "08",
        " 9" => "09"
                );

my $Arealday;

if ($Aday < 10) {
        $Arealday = $daything{$Aday};
} else {
        $Arealday = $Aday
}
[download]

with

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