use 5.010;
use warnings;
use strict;

my (@book, @people);

while (<DATA>) {
    chomp;
    next if /^#/ || !/\S/;
    my ($name, $days) = split;
    my @days = split /,/, $days;
    foreach my $day (@days) {
        push @{$book[$day]}, $name;
    }
    push @people, [$name, \@days];  
}

foreach my $info (@people) {
    my ($name, $days) = @$info;
    my %matches;
    foreach my $day (@$days) {
        my @match = grep {$_ ne $name} @{$book[$day]} or next;
        $matches{$day} = \@match if @match;
    }
    show $name, $days, \%matches;
}

sub show {
    my ($name, $days, $matches) = @_;
    printf "%-20s %s\n", $name, join ", ", @$days;
    unless (%$matches) {
        print "    Sorry! No matches.\n";
    }
    else {
        foreach my $day (@$days) {
            foreach my $name (@{$$matches{$day} || []}) {
                print "    $name can meet you on the $day";
                given ($day) {
                    when (/1[0-9]$/) {print "th"}
                    when (/1$/) {print "st"}
                    when (/2$/) {print "nd"}
                    when (/3$/) {print "rd"}
                    default {print "th"}
                }
                print ".\n";
            }
        }
    }
    print "\n";
}
    
    
__DATA__
# name      days
        
Al          1,2
Bob         2,13
Chuck       12,4
Dick        3,7,30
Edgar       5,7
Fred        2,23
Greg        4,5,12
Harry       6
Ian         1,20
Jack        4,23