my @output = map [ $_->[0] ], @input;