Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
$hash{$_}=1 for 1 .. 10_000_000;

__END__
  2. or download this
    #!/usr/bin/perl

...
$hash{$_}=1 for 1 .. KEYS;

__END__
  3. or download this
    #!/usr/bin/perl

...
@hash{1..KEYS}=(1) x KEYS;

__END__