open my $out, ">", "rat.csv" or die "Can't write file:$!";

for my $name (@names) {
    print $out "$name,";
    for (@{$data{$name}}) {
        print $out "$_,";
    }
	print $out "\n";
    $i++;
}
close($out);