my @names = qw(A B C D);
my %order = ();
for(my $i=0; $i<4; $i++) {
	$order{$names[$i]} = $names[$i];
}

while ((my $key, my $value) = each(%order)){
     print $key.", ".$value."\n";
}