$NGList = $fNode->GetParents() or die;

If GetParents returns a list of things, you could try assigning it to an array:

my @NGList = $fNode->GetParents() or die;
foreach my $fNode (@NGList)
[download]

I strongly recommend that you use strict and warnings (update: runrig beat me to it).