#!/usr/bin/perl
use strict;
use warnings;

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

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