my @keyed_data = map { print qq{Number $_: }; scalar <> } (1 .. 5);