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

## Foreach-loopen
# Denne er litt spesiell. Man har noe lignende i PHP, men syntaksen er ulik.
# Foreach går gjennom hvert element i en liste.

my @array = ('gunnar', 'ottar', 'per ulf');

# Legg merke til at løpevariabelen $verdi angis utenfor parentesen!
foreach my $verdi (@array) {
	print "$verdi\n";
}

# Man kan også bruke foreach til å løpe over alle nøklene i en hash:
my %hash = ( 'uid' => 3425, 'bnavn' => 'ottar', 'rnavn' => 'Ottar Evje' );

# Kommandoen "keys" gir ut en array med alle nøklene i hashen, så dette er 
# egentlig akkurat det samme.
foreach my $key (keys %hash) {
	print $key . " = " . $hash{$key} . "\n";
}

# Foreach er dritnyttig!