#!/usr/bin/perl -w
use strict;
my $OldIFS = $/;
$/="**";
my ($taskList,$assigns)=<DATA>;

chomp($taskList);
$/=$OldIFS;

my @tasks=split(/[\n]/,$taskList);
my $timeline={};

foreach my $task(@tasks){
        $timeline->{$task}=[];
}

my @resourceList=split(/[\n]+/,$assigns);

foreach my $assign(@resourceList){
        my($resource,$theTasks)=split(/[\=]/,$assign);
        next unless $resource;  # Deal with empty lines
        $resource =~ s/\s+$//;
        $theTasks =~ s/^\s+//;
        $theTasks =~ s/\s+$//;
        my @tasks=split(/[\s]+/,$theTasks);
        foreach my $task(@tasks){
                push @{$timeline->{$task}},$resource;
        }
}
foreach my $key(sort keys %$timeline){
        printf "%s\t%s\n",$key,join(",",@{$timeline->{$key}});
}


exit(0);
__END__
Task1
Task2
Task3
Task4
Task5
**
Joe Blow        = Task1
Sally Brown     = Task1 Task2
Jane Doe        = Task3 Task5
Sid Down        = Task2 Task4
Hoof Hearted    = Task1 Task5