my %csga;

while (<$in>) {
    my @record = split /\t/;
    chomp @record;
    $csga{ $record[0] } = $record[1];
}

close $in;

dd \%csga;