#!/usr/bin/perl
# UNTESTED CODE
use strict;

$sortby = 'alpha'; # or num

my $network = sort($sortby);


sub sort {
  my $method = shift;
  my $sorted;

  $method = 'alpha' if ($method eq '');  # Default

  if ($method eq 'alpha') {
    $sorted = # alpha sort method
  } elsif ($method eq 'num') {
    $sorted = # num sort method
  } else {
    $sorted = "Error: No sort method defined!\n";
  }

  return $sorted;
}