use List::Util qw[ shuffle ];

my %verb = (
        'To Move' => 'Zegi',
        'To Break' => 'Loga',
        'To Think' => 'Fzetra',
       );


This would print the hash in order - 

foreach my $verb (shuffle keys %verb)
{
  print $verb;
}
[download]