#! /usr/bin/perl -w
my $skalar = 0; // neinicializoval si premennu $skalar -w sa odporuca pouzivat s "use strict;"
my @pole;
my ($halo1,$halo2);
while ($skalar != 10) {
$skalar++;
$pole[$skalar] = $skalar; }

foreach $halo (@pole) {
$halo2 = $halo + 10;
print "halo= $halo halo+10= $halo2 n"; }

samozrejme nebudem hovorit o tom ze for() by bol v tomto pripade ovela uzitocnejsi :)