#!/usr/bin/perl -w
use strict;
use Data::Dumper;

my %userinfo;

while ( <DATA> ) {
    chomp;
    my ( $username, $realname, $password ) = split /\|/;
    $userinfo{$username} = { realname => $realname, password => $password };
}

print Dumper \%userinfo;

__DATA__
patgas|patrick|foobar
doodle|what|now
cannot|think|of
better|sample|data