Perl snippets

Podijeliti polje @a po komponentama skalarom $x $_/=$x for@a