print "liste"

Det er ikke en liste (array) det er en hash (associeret liste)

for my $model ( keys %bil ) {
  print "Model: $model; Mærke: $bil{$model}\n";
}

I PHP er det vist et fedt og det samme, men det er det ikke i Perl.

perfekt - dropper du lige et svar?

Jeg endte med at bruge:

$model="9000";
$bil{$model}="Saab";

$model="323";
$bil{$model}="Mazda";

$model="Punto";
$bil{$model}="Fiat";
for my $model ( keys %indhold ) {
push (@bil,$indhold{$model});
}
print @bil;

Det vil være en god ide at lære at avnende strict og warnings.

din ting kan laves således

my %indhold = ();
$indhold{'9000'}  = 'Saab';
$indhold{'323'}  = 'Mazda';
$indhold{'Punto'} = 'Fiat';
my @bil = map { $indhold{$_} } keys %indhold;
print @bil;

Men jeg vil stadigvæk anbefale at du lærer at anvende det korrekt i stedet for at svine med hukommelsen ;-)

Hehehe