open OUT, ">".$self->get_csv() 
    || die "Could not open file ".$self->get_csv().
       " for writing!";

  for ( my $i = 0; $i < @stations; $i++ ){
      
    print OUT [some string];
    
  }

  close OUT;