#!/usr/bin/perl

use warnings;

%threads=('a', [1,2,3],
	  'b', [2,2,3],
	  'e', [3,2,3],
	  'd', [4,2,3],
	  'c', [5,2,3]);

$tnum=0;
foreach $thread (keys %threads) {
print "\n thread for $thread, tnum=$tnum:"; #dbg
print "\n\tthe array from hash=@{$threads{$thread}}"; #dbg
# THE ABOVE LINE CORRECTLY PRINTS THE ELEMENTS OF THE ARRAY OF THE HAS

    $tsub[$tnum] = $thread;    
    $tsize[$tnum] = @{$threads{$thread}};         
print "\n\ttsize[tnum]= $tsize[$tnum]"; #dbg
   # for ($i=0; $i<$tsize[$tnum] ; $i++) 
   # { $tlist[$tnum][$i] = $threads{$thread}[$i];
push( @{$tlist[$tnum]},  @{$threads{$thread}} );
# HERE I'M TRYING TO PRINT THE ELEMENTS ONE AT A TIME
print "\n\t\@{threads{thread}}=@{$threads{$thread}}"; 
# BUT THE ABOVE LINE PRINTS ONLY A NULL 
    
}