#!/usr/bin/perl5.8
use Proc::ProcessTable;
#use Tie::File::AsHash; 
##</code><code>##

 my %hash= ();

%TV = (  flintstones =>{ series   => "flintstones",
                          nights   => [ qw(monday thursday friday) ],
                        members    => [ { name => "fred",    role => "lead", age  => 36, },
                                        { name => "wilma",   role => "wife", age  => 31, },
                                        { name => "pebbles", role => "kid",  age  =>  4, },
                                      ],
                       },
         jetsons1    => { series   => "jetsons",
                         nights   => [ qw(wednesday saturday) ],
                         members  => [ { name => "george",  role => "lead", age  => 41, },
                                       { name => "jane",    role => "wife", age  => 39, },
                                       { name => "elroy",   role => "kid",  age  =>  9, },
                                     ]
                       },

##</code><code>##

 sub memory_use {
    my $t = new Proc::ProcessTable;
    foreach my $got ( @{$t->table} ) {
        next if not $got->pid eq $$;
        return $got->size;
    }
} 
##</code><code>##

  my $count = 10;
  my $key = 'test';

  #tie  %hash, 'Tie::File::AsHash', 'abc.csv', split => ':' or die "Problem tying %hash: $!";

  foreach my $family (keys %TV) {
      $count++;
      my $record = "";
      my $rec = $TV{$family};
      my $key = $family . $rec->{series};

      for $person ( @{ $rec->{members} } ) {
          $record .= $person->{name}."," . $person->{role}. ","
                                         . $person->{age} . ","
                                         . $rec->{series}   . ","
                                         . $rec->{nights}[0];
      }

      print "\n Key:    $key \n";
      print "\n Record: $record \n";


      $hash{$key} = $record;

      if ( $count%10 == 0 ) {
          sleep(10 );
          print "\n Record counter => [$count] \n";
          print "\n Process Status:" . ( ( memory_use()/1024 )/1024 ) ."MB \n";
          %hash = (); # if we comment it memory constant
      }
  } #----for 1----#