Select Code to Download

my $time_ = localtime;
my $date = ParseDate($time_);
...
$unix_date =~ s/ //g;
$ash_{date} = $unix_date;
$ash_{temp} = gct();

use POSIX 'strftime';
$ash_{date} = strftime $d_format[0], localtime;

my %cash = build_comp_hash();
push @aoh, { %cash };
graphable_arrays();

push @aoh, { build_comp_hash() };

@xdata = ();
@ydata = ();
...
    }
    else{}
   }

@xdata = ();
@ydata = ();
...
    push @xdata, $hash->{ date };
    push @ydata, $hash->{ temp };
    }