foreach(keys %data){
  open(DATA,">group$_.txt")||die"Couldn't open file for $_:$!";
  print DATA join("\n",@{$Data{$_}});
  close(DATA);
}