use strict;
use warnings;
use XML::Simple;

my $xml = XMLin( 'CC.xml' );
for (@{ $xml->{Week}{Day} }) {
  print $_->{Times}{Time}{'start-time'},"\n" if $_->{'day-of-week'} eq "Tuesday";
}