Select Code to Download

my %children = (
                  'a' => [ 'b', 'c' ],
...
sub children { @{$children{$_[0]} || []}; } 
my @unsorted = ( 'z', 'a', 'x', 'c', 'b', 'y' );
my @sorted = toposort(\&children, \@unsorted);