##
## make_node()
## Arguments: $value: scalar, contents of the node
##            $next_node: linked list node (optional)
##
sub new_node {
   my ($value, $next_node) = @_;

   my $new_node = [$value, $next_node];

   return $new_node;
}