my @UnNum = ( [ 0, [1,2,3] ], [ 0, [1,2,3] ]);

##</code><code>##

join ' ', @{$_->[1]}

##</code><code>##

map {"$_->[0]\t " . join ' ', @{$_->[1]}} @UnNum;

##</code><code>##

print join "\n", map {"$_->[0]\t " . join ' ', @{$_->[1]}} @UnNum;