#!/usr/bin/perl

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

print join ',', keys %hash;

##</code><code>##

snake,dog,zebra

##</code><code>##

dog,zebra,snake