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