Help for this page

Select Code to Download


  1. or download this
    my $count = 0;
my $test;
unless ( exists $hash{$test} ) {
    $hash{$test} = $count++;
}
  2. or download this
    sort { $hash{$a} <=> $hash{$b} } keys %hash;