open(FILE, "< $file") || die "Couldn't open $file: $!\n";
@array = <FILE>; ## Assume no multiline stuff.. for now
@strings = grep(/^\s*\@$arrayname\s*=\s*/, @array);