use strict;
use warnings;

my ($rand, $c);

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

for (0..20) {
    my @arr = (keys %verb);
    for ($c = @arr; --$c;) {
        my $rand = int rand ($c+1);
        @arr[$c,$rand] = @arr[$rand,$c];
    }
    print join(' ', @arr) . "\n";
}