Help for this page

Select Code to Download


  1. or download this
     
my @UnNum = ( [ 0, [1,2,3] ], [ 0, [1,2,3] ]);
  2. or download this
    join ' ', @{$_->[1]}
  3. or download this
    map {"$_->[0]\t " . join ' ', @{$_->[1]}} @UnNum;
  4. or download this
    print join "\n", map {"$_->[0]\t " . join ' ', @{$_->[1]}} @UnNum;