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++;
}