#! /usr/bin/perl -w
use strict;
use Quantum::Entanglement;

foreach my $i ( 1 .. 5 ) {
  my $die = entangle( 1=>1, 1=>2, 1=>3, 1=>4, 1=>5, 1=>6 );
  print "$die ";
}
print "\n";