sub hash_display_listing{
  # my $ref = @_;
  my ($ref) = @_;
  # or 
  # my $ref = shift ;