my $result = join ", ", @{ $ref }; 
  print $result, "\n";