my %info = ();
open(IN,"<$file");
while(<IN>)
{
        my $line = $_;
        chomp $line;
        my($lastname, $firstname, $country, $language) = split('\|', $line);
        #print"$lastname, $firstname, $country, $language\n";
        $info{'lastname'} = $lastname;
        $info{'firstname'} = $firstname;
        $info{'country'} = $country;
        $info{'language'} = $language;
}