Select Code to Download

my $count;
while (my $line = <IN>) {
...
    $info{language}[$count] = $language;
    $count++;
}

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