open(my $spell_csv, '>>', get_data_file('Role_playing','Spell_list.csv'));
print $spell_csv "$spell_name|$school|$level|$range|$duration|$area_of_effect|$components|$casting_time|$saving_throw|$note";
push @spell_list, $spell_name;