Hm, I meant in the program.

And after thinking I found it:

print for map{ 
    $_->[0] . "\n"
}

etc.
[download]

I should think a lot more before posting a trivial questions. :-)