#!/usr/local/bin/perl
# Jaime Prilusky, 2005
# dataDumperReader, reconstructs the data structure

  # read the data structure from the external file
  my $dataFile = "dataDumperData";

  # recreate the structure from the text file
  our %days; do $dataFile;

  #show what we have
  foreach $k (sort keys %days) {
    print "$k\t$days{$k}\n";
  }