Random Value Generation in an Hash

[vishi83]

Please see this code below...

#!/usr/bin/perl

  package Simple;

  use Class::MethodMaker
    get_set       => [qw(Name Id Team)],
    new_hash_init => 'hash_init';

  sub init  {
    my $self   = shift;
    return $self->hash_init(%values);
  }
  1;

  use strict;
  use warnings;
  use Simple;
  use Data::Dumper;
  my $test;

line : x  $test=Simple->hash_init(Name=>'Vishi', Id=>1049,Team=>'OpenS
+ource');
  print Dumper $test;

In my line : X ... when i pass an hash to my hash_init method and print it ($test), i find my arguments getting printed randomly, even in this Obj Oriented Style .. I want them to get printed as
Name=>'vishi', Id=>1049,Team=>'OpenSource' But these values are not in order..

Thanks in advance.. vishi