1#!/usr/local/bin/perl
2
3@PC2_C=(14,17,11,24, 1, 5,
4	 3,28,15, 6,21,10,
5	23,19,12, 4,26, 8,
6	16, 7,27,20,13, 2,
7	);
8
9@PC2_D=(41,52,31,37,47,55,
10	30,40,51,45,33,48,
11	44,49,39,56,34,53,
12	46,42,50,36,29,32,
13	);
14
15foreach (@PC2_C) {
16	if ($_ ne "-")
17		{
18		$_--;
19		printf "%2d  ",$_; }
20	else { print "--  "; }
21	$C{$_}=1;
22	print "\n" if (((++$i) % 8) == 0);
23	}
24$i=0;
25print "\n";
26foreach (@PC2_D) {
27	if ($_ ne "-")
28		{
29		$_-=29;
30		printf "%2d  ",$_; }
31	else { print "--  "; }
32	$D{$_}=1;
33	print "\n" if (((++$i) % 8) == 0); }
34
35print "\n";
36foreach $i (0 .. 27)
37	{
38	$_=$C{$i};
39	if ($_ ne "-") {printf "%2d ",$_;}
40	else { print "--  "; }
41	print "\n" if (((++$i) % 8) == 0);
42	}
43print "\n";
44
45print "\n";
46foreach $i (0 .. 27)
47	{
48	$_=$D{$i};
49	if ($_ ne "-") {printf "%2d  ",$_;}
50	else { print "--  "; }
51	print "\n" if (((++$i) % 8) == 0);
52	}
53print "\n";
54sub numsort
55	{
56	$a-$b;
57	}
58