<:
my $na = scalar @arches; $na = int($na / 4 + .5);
my $i = 0;
foreach my $a (@arches) {
my $aname = $arches{$a}; $aname =~ s, ,\ \;,g;
print "";
$i++;
if ($i != 0 && $i % $na == 0) {
print "
\n";
} else {
print " \n";
}
}
:>
#use wml::debian::countries