sub load_array_data {
    my ($file, $array) = @_;
    open(my $fh, '<', $file) or die "Unable to open '$file' for reading: $!";
    while (<$fh>) {
        chomp;
        push @$array, $_;
    }
}
my @Wizard_School;
load_array_data('wizard.data', \@Wizard_School);