print join "\n", map {"$_->[0]\t " . join ' ', @{$_->[1]}} @UnNum; #### 91 50, This is the first line 56 46, This is my second line #### 50, This is my first line 46, This is my second line
## 91 50, This is the first line 56 46, This is my second line ##
## 50, This is my first line 46, This is my second line