in reply to Printing Map to file

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

In Section Seekers of Perl Wisdom