# Loop thru each hash and see if it repeats
  # Copy hash keys to prevent looping over aready updated dayinfo hash
  # This is the rev. 1.1 fix
  my(@dayinfokeys) = keys(Úyinfo);
  foreach $index (@dayinfokeys) {

    # Read the repeat number to see if other hashes need to be made
    # Split each entry into an array
    my($element) = "";
    my(@entry) = ();
    foreach $element (@{ $dayinfo{$index} }) {
      my(@entry) = split('{',$element);