Re: Manipulating Arrays

[damian1301]

A more of a golfed response.

@names=qw/tom tom tom green/;
my%h;%_=map{$h{$_}++}@names;map{print"$_=",$h{$_},"\n"}keys%h;

$_.=($=+(6<<1));print(chr(my$a=$_));$^H=$_+$_;$_=$^H;
print chr($_-39); # Easy but its ok.

[ChOas]

Or... without some maps:

my @names=qw/tom tom tom green/;
$_{$_}++for@names;print"$_=$_{$_}\n"for keys%_;


GreetZ!,

ChOas

print "profeth still\n" if /bird|devil/;