sub list_sort { my @vals = @_; my @smaller = get_smaller(@vals); my @larger = get_larger(@vals); return list_sort(@smaller), list_sort(@larger); }