@array = qw/P H A G E P H A G E P Q K R E P H A G E P W S Q E P H A G E P R D L E P H A G E/;