use strict;
use warnings;

use Data::Dumper;

my @users;
while (<DATA>) {         
  chomp;
  push @users, [ split /\|/ ];
}

print Dumper \@users;

_ _DATA_ _
user1|alter|geschlecht
user2|alter|geschlecht
user3|alter|geschlecht
user4|alter|geschlecht