Help for this page
my $i=0; map {$keywordhash{$_}=(++$i);} @keywords;
%keywordhash = map {$_ => 1} @keywords;
do {$keywordhash{$_}=(++$i);} for @keywords;
%keywordhash = map { $_ => ++$i } @keywords;
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/; map{y/X_/\n /;print}map{pop@$_}@/for@/
www.com | www.net | www.org
No recent polls found