@newwords = map {$l % 5 == 0; $l," ",$_} @words;