#!/usr/bin/perl
use strict;
use warnings;

## While-loop
# En while-loop i perl virker akkurat som i andre språk. Yay!

my $counter = 0;
while ($counter < 10) {
	print "tallet er $counter\n";
	$counter++;                       # Øker $counter med 1
}

## For-loop
# Virker også som i andre språk! Hurra!

for (my $tall = 0; $tall < 10; $tall++) {
	print "tallet er $tall\n";
}