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

etc.