#!/usr/bin/perl -w

use strict;

my @vektor = (4,86,"Test",25);
my $laenge = @vektor;            # skalarer Kontext
print "Länge = $laenge\n";
print "Letzter Index = $#vektor\n";
print "\$vektor[3] = $vektor[3]\n";

$vektor[7] = 42;
$laenge = @vektor;
print "Länge = $laenge\n";
print "Letzter Index = $#vektor\n";