Select Code to Download

sub find_share {
  my ($target, $treasures) = @_;
...
  printf "rslt1= %s\n",join ',',@$rslt1;
  printf "rslt2= %s\n",join ',',@$rslt2;
}

my $share_1 = find_share($total/2, [@_]);