Select Code to Download

#!/usr/bin/perl

...
my %hash = ( 'snake' => 1, 'dog' => '2', 'zebra' => '3' );

print join ',', keys %hash;

snake,dog,zebra

dog,zebra,snake