Help for this page

Select Code to Download


  1. or download this
    my %hash; # hash of hashes already defined and filled in an earlier pa
+rt of code

...
    print "found3\n";
    }
}
  2. or download this
     found2
 found3
 found2
 found3
 ...
  3. or download this
    foreach (sort keys %{$hash{$key1}}){
    if ($hash{$key1}{$_}=~ /^.+_(\d+)_.+AAA/gi){
...
    print "found3\n";
    }
}
  4. or download this
     foundx
 found2
...
 found2
 found3
 ...