#!/usr/bin/perl

use strict;
use warnings;

my %hash = map { $_ => 1 } (0..5);
my %copy = %hash;
my $hash_keys = join(' ', keys %hash);
my $copy_keys = join(' ', keys %copy);
print "$hash_keys --> $copy_keys, ",
      $hash_keys eq $copy_keys ? "Same" : "Different",
      " order \n";