Topological Sort

Score: 125.52 (pass)

#!perl -n
/ /;$p{$a=$`.$/}+=0;$' eq$a or$p{$'}++,push@$a,$'}{delete$p{$_},print,map--$p{$_},@$_ while($_)=grep!$p{$_},keys%p;%p&&die

Score: 129.51 (pass)

#!perl -n
/ /;$p{$a=$`.$/}+=0;$a ne$'&&$p{$'}++,push@$a,$'}{@n=grep++$n&&!$p{$_},keys%p;--$n,print,push@n,grep!--$p{$_},@$_ for@n;exit$n

Score: 131.50 (pass)

#!perl -n
/ /;$p{$'}++,push@$a,$' if($a=$`.$/)ne$';$p{$a}+=0}{@n=grep++$n&&!$p{$_},keys%p;--$n,print,push@n,grep!--$p{$_},@$_ for@n;exit$n

Score: 139.46 (fail)

#!perl -nl12
($a,$b)=split;$a eq$b or$p{$b}++,push@$a,$b;$p{$a}+=0}{@~=grep!$p{$_},keys%p;delete$p{$_},print,push@~,grep!--$p{$_},@$_ for@~;exit%p

Score: 139.50 (pass)

#!perl -nl12
/ /;$p{$'}++,push@{$e{$`}},$' if$`ne$';$p{$`}+=0}{@n=grep!$p{$_},keys%p;delete$p{$_},print,push@n,grep!--$p{$_},@{$e{$_}}for@n;exit%p

Score: 150.46 (pass)

#!perl -nl12
($a,$b)=split;$p{$b}++,push@{$e{$a}},$b if$a ne$b;$p{$a}+=0}{@n=grep!$p{$_},keys%p;delete$p{$_},print,push@n,grep!--$p{$_},@{$e{$_}}for@n;exit%p