for (3 .. 8) {
        my $pdu_num = $_;
        $pdu_num = 11 - $pdu_num unless defined $order;
        if (@nodes) {
                my $node = shift @nodes;
                $map{$node} = $pdu . '['.$pdu_num.']';
                next;
        }
}

##</code><code>##

for (3 .. 8) {
        my $pdu_num = $_;
        $pdu_num = 11 - $pdu_num unless defined $order;
        last unless @nodes;   
        my $node = shift @nodes;
        $map{$node} = $pdu . '['.$pdu_num.']';
}