"rolling_eyes.pl" :: Can't remember why I created this...

#!/usr/bin/perl
# EDIT:: I remember why I did this now.
# The script name is "rolling_eyes.pl", so I was going to
# send this to people and at some points put some unicode
# into it so that it printed out me rolling my eyes at
# them... ahem, such an author is himself perhaps worthy
# of receiving this...

use strict;
use warnings;
use diagnostics;
use Data::Dumper;

my $debug = shift;
# my $quadrants = {{{
my $quadrants = [(
    'u',
    'l',
)];
# }}}
# my $eyes = {{{
my $eyes = [(
  'r',
  'l',
)];
# }}}
print Dumper @{$quadrants} . "\n" if $debug;
print Dumper @{$eyes} . "\n" if $debug;
my $quad_count = scalar((@{$eyes})) + scalar(@{$quadrants});
for (my $i = 0; $i < $quad_count; $i++) {
  for (my $j = 0; $j < scalar(@{$quadrants}); $j++) {
    my $quad_thing;
    $quad_thing = scalar($i % ($quad_count));
    my $eyes_thing = $j % scalar(@{$eyes});
    print "$eyes_thing : $quad_thing\n";
  }
}