my $xml = XMLin( 'CC.xml', ( ForceArray => 1 ) );
for my $day (@{ $xml->{Week}[0]{Day} }) {
  next unless $day->{'day-of-week'} eq "Tuesday";
  for my $time ( @{ $day->{Times}[0]{Time} } ) {
    print $time->{'start-time'},"\n" if exists $time->{'start-time'};
  }
}