for my $Title ( sort { $a->{InternalCounter} <=> $b->{InternalCounter} } keys %Info ) {
    my $String = $Title . " " . join ( " ", @{ $Info{$Title}->{PTage} } ) . " " . join( ", ", @{ $Info{$Title}->{Date} } );
    print $String;
}