Help for this page
#!/usr/bin/perl ... my %hash = ( 'snake' => 1, 'dog' => '2', 'zebra' => '3' ); print join ',', keys %hash;
snake,dog,zebra
dog,zebra,snake