my @data = ( 0 .. 50000);
my %hash = () ;

### version 1
map { $hash{$_}++ } @data;

### version 2
%hash = map { $_ => 1 } @data;

### version 3
### as fast as version 1
%hash = map { $_ => } @data