open ORD, 'orderedname.txt';
my @name = map {split} <ORD>;
close ORD;