my $fh = new IO::File "> output.csv";
   foreach my $hash ( %hashed){
      if($hashed{$hash}){
         $status = $csv->print($fh, $hashed{ $hash });
      }
   }
   $fh->close;