#!/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');

my @Array2; # hier kommt spter alles rein

# Ueberschrift wegschmeissen
my $crap = shift @Array1;

print Dumper(\@Array1);

for (@Array1) {
  # am semikolon auftrennen
  my($nr,$name,$vorname,$strasse,$ort) = split(/;/);
  
  # als anonymen Hash zuweisen
  push(@Array2, {'nr' => $nr, 'name' => $name, 'vorname' => $vorname, 'strasse' => $strasse});
}

print Dumper(\@Array2);

# auf einzelne Werte zugreifen
print $Array2[1]->{'vorname'} . ' ' . $Array2[1]->{'name'} . "\n";