my $count;
while (my $line = <IN>) {
    chomp $line;
    my($lastname, $firstname, $country, $language) = split(/\|/, $line);
    $info{lastname}[$count] = $lastname;
    $info{firstname}[$count] = $firstname;
    $info{country}[$count] = $country;
    $info{language}[$count] = $language;
    $count++;
}

##</code><code>##

my $LASTNAME = 0;
my $FIRSTNAME = $LASTNAME + 1;
my $COUNTRY = $FIRSTNAME + 1;
my $LANGUAGE = $COUNTRY + 1;
my @info = map {[/[^|\n]*/g]} <IN>;