40  foreach my $session (%dif_hash)
    41  {
    42
    43  print $session . "\n";
    44  #$x++;
    45  #print "\n\n".  $dif_hash{$session}{'begin'}{'name'};
    46  #print " "  . $dif_hash{$session}{'begin'}{'hour'};
    47  #print "" . $dif_hash{$session}{'begin'}{'minute'};
    48  #print "" . $dif_hash{$session}{'begin'}{'second'};
    49  #print " "  . $dif_hash{$session}{'begin'}{'day'};
    50  #print "" . $dif_hash{$session}{'begin'}{'month'};
    51  #print "" . $dif_hash{$session}{'begin'}{'year'};
    52  #print "\n";
    53  #print       $dif_hash{$session}{'end'}{'name'};
    54  #print " "  . $dif_hash{$session}{'end'}{'hour'};
    55  #print "" . $dif_hash{$session}{'end'}{'minute'};
    56  #print "" . $dif_hash{$session}{'end'}{'second'};
    57  #print " "  . $dif_hash{$session}{'end'}{'day'};
    58  #print "" . $dif_hash{$session}{'end'}{'month'};
    59  #print "" . $dif_hash{$session}{'end'}{'year'};
    60  #print "\n\n";
    61
    62  }
    63