Select Code to Download

sub build_huffman_tree {
   my $input=shift;
...
   }
   return wantarray ? @list : $list[0];
}