my @node_number = @ARGV; for my $nn ( @node_number ) { print <