use strict;
use warnings;
use Data::Dumper;

# definiere Feldnamen
my @felder = qw(name vname alter hobbies);

# hier kommts Ergebnis drauf
my @slice  = ();

# datei lesen
while(my $rec = <DATA>){
    chomp $rec;
    my %hunt = ();
    @hunt{@felder} = split ";", $rec; #  hash-slice!

    # hier könnte die Suchbedingung
    # Anwendung finden
    push @slice, \%hunt;
}

print Dumper \@slice;


__DATA__
Müller;Jens;42;Fußball, Tennis, Vögel beobachten
Knusper;Ronny;34;lesen, schlafen, langweilen