@xdata = ();
@ydata = ();
my($i, $datum);
for $i (0 .. $#aoh){
  for $datum (keys %{ $aoh[$i] }){
	if($datum =~ m/date/){   
	 push @xdata, $aoh[$i]{$datum};
	}
	elsif($datum =~ m/temp/){
	 push @ydata, $aoh[$i]{$datum};
    }
	else{}
   }