Select Code to Download

#!/usr/bin/perl -w
...
    $hash{$_}++;
  }
}

my $bit="ace"; my (%hash, @rank);
while (<DATA>)
...
    print;
  }
}