in reply to Re^2: Finding Eulerian Path
in thread Finding Eulerian Path

And Forgot to add this modification too, in the if() statement: 
            if ( $graph{$v} ) {

[download]
to: 
            if ( @{$graph{$v}} ) {

[download]

In Section Seekers of Perl Wisdom