#!/usr/bin/perl -w

use strict;
use Data::Dumper;

my @Array1 = ('Nr;Name;Vorname;Strasse;Ort',
         '1;Bauer;Otto;Heuweg 1;Bonn',
         '2;Mueller;Mark;Holzweg 2;Berlin',
         '3;Schreiber;Stefan;Hochweg 3;Muenchen');

# Ueberschrift wegschmeissen
my $crap = shift @Array1;

print Dumper(\@Array1);

# ; und Ort entfernen
@Array1 = map { m/(.*);.+$/ } @Array1;

print Dumper(\@Array1);

# Element 2 anzeigen
print $Array1[1];