my ($name) = seekName($id)
print "$name\n";

sub seekName
{
    my ($id) = $_[0];
    open (IN, "<:utf8", "names.txt") or die "Can't open: $!";
    
    seek In, $id, 0;
    my $line = <In>;
    return $line;
}