diff --git a/perl-xCAT/xCAT/PPCenergy.pm b/perl-xCAT/xCAT/PPCenergy.pm
index 976bdca93..1691f2738 100644
--- a/perl-xCAT/xCAT/PPCenergy.pm
+++ b/perl-xCAT/xCAT/PPCenergy.pm
@@ -179,8 +179,8 @@ sub parse_args {
     my $nodetyperef = xCAT::DBobjUtils->getnodetype($nodes, "ppc");  
     my $i = 0;
     foreach my $node (@{$nodes}) {
-        if (@$nodetyperef[$i] ne 'fsp' && 
-            @$nodetyperef[$i] ne 'cec') {
+        if ($$nodetyperef{$node} ne 'fsp' &&
+            $$nodetyperef{$node} ne 'cec') {
             push @notfspnodes, $node;
         }
         $i++;