my (%big,%small);
while(<DATA>){
    my ($p1,$p2,$n) = split;
    push @{$big{$p2}},$p1;
    push @{$small{$p1}},$p2;
}
sub Larger{

my  ($s1,$s2) = @_;
my @strings;
my @strings2;
my $debug = 0;
print " $s1 ? $s2 \n";
my (@big,@small);
my %seen;

my @elements = ($s1);
my $count;
my %added;
while(my $x = shift @elements){
    next if $seen{$x};
    $seen{$x}++;
    foreach (@{$big{$x}}){
        next if $seen{$_};
        next if $added{$_};
        push @big, $_;
        $added{$_}++;
        push @elements, $_;
    }
}

print "Larger:";
print join " ",@big,"\n";
}
[download]