Help for this page

Select Code to Download


  1. or download this
    use Data::Dumper;
 
...
 
print Dumper \@tsub,\@tlist,\@tsize;
  2. or download this
    $VAR1 = [
          'keyB',
...
          5,
          3
        ];
  3. or download this
    @tsub2   = keys %threads;
@tlist2  = @threads{@tsub2};
@tsize2  = map { scalar @{$_} } @tlist2;
 
print Dumper \@tsub2,\@tlist2,\@tsize2;