#!/usr/bin/perl
use strict;
use warnings;
use Tie::IxHash;

tie my %hash2, "Tie::IxHash";

%hash2=(
    a => "apple",
        b => "boy",
        c => "cat"
          );

my @keys=keys %hash2;
foreach my $s (@keys)
{
    print "$hash2{$s} ";
}


__END__
$ ./838968.pl
apple boy cat