package Node
use strict;
 my ($id, $u, $p, $log, @mess);
 sub New {
    my $class =shift;
    my $this  ={};
    @mess =();
    $log  =0;
    bless ($this, $class);
    return ($this);
 }

##</code><code>##

package System;
use strict;
 my (@nodes, $n1, $server, @messages);

...

 sub ANodeLogin{
    my $self =shift;

    use Node;
    my $node=Node->New;
    push (@nodes, \$node);

...

 sub ANodeLogout{
    my $self =shift;
    my $node;

    print "What node would you like to log out of\n";
    foreach $node (@nodes){
       print "--->$node->{u}<---\n";#this is line 62
    }
 }