Ordered hash
#!/usr/bin/perl use strict; use warnings; use Tie::IxHash; my %hash; tie %hash, 'Tie::IxHash'; %hash = (one => 1, two => 2, three => 3); print join(",",keys(%hash)),"\n";