open (NOV, '<', $novo);

my %denovo;

while (my $line = <NOV>){
    chomp $line;
    if ($line =~ /([^,]*)$/){
	my $name = "$1";
	print "name is $name\n";
	$denovo{$name} = "$line";
    }
}

print "hash denovo is:\n";

 while( my( $key, $value ) = each %denovo ){
    print "$key: $value\n";
}

close NOV;