my $ref = shift;
$str .= sprintf "^%s %s %d", $ref->call, $ref->confmode ? '*' : '-', $ref->here;
}
$str .= sprintf "^%s^", get_hops(16);
push @out, $str;
my $ref = shift;
$str .= sprintf "^%s %s %d", $ref->call, $ref->confmode ? '*' : '-', $ref->here;
}
$str .= sprintf "^%s^", get_hops(16);
push @out, $str;