foreach my $file (@file) {
  my $filename = $file->{'filename'};
  my $content = $file->{'content'};
  open(FILE, ">$filename") 
    or die "Can't open $filename $!";
  print FILE $content;
  close(FILE);	
}