my $fh = new IO::File "> output.csv";
  foreach my $hash ( %hashed){
    if($hashed{$hash}){
      print "$hash has data $hashed{ $hash }->[0]\n";
      $status = $csv->print($fh, $hashed{ $hash });
    }
  }