About APEC

APEC brings a holiday. And for Bush's sake, more than ten thousands Aussies go to the streets to protest to Iraq War and Grean Earth. Some guys are arrested by Police for their illegal behaviors. Share some photoes later:)

Perl Touching

Following code is good for studying Perl's Reference.

 
my %status = (
    A => [{A1 => 11}, {A2 => 12}], 
    B => [{B1 => 21}],
); 

foreach (sort keys %status) {
    $name_1 = $status{$_};
    print "Top Hash Key: ".$_."\n";
    foreach (@{$name_1}) {
        $name_2 = $_;
        foreach (sort keys %{$name_2}) {
            print "Secondary Hash Key: ".$_
                ." Value: ".${$name_2}{$_}."\n";
        }
    }
}