Hash Perl

  1. Home
  2. Perl
  3. Hash
  4. 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";