if (my $node = shift @nodes)
{
    $map{$node} = $pdu . '['.$pdu_num.']';
}

##</code><code>##

if (@nodes) {
    my $node = shift @nodes;
    $map{$node} = $pdu . '['.$pdu_num.']';
}