@node is a different variable than @nodes.

Also, hashes are accessed through $hash->{ key } not through $hash->key. Maybe see perldsc or perlreftut.

You should really have this near the top of your program to enable Perl to tell you when you mistype variable names:

use strict;
[download]