#!/usr/bin/env perl
use strict;
use warnings;

use Data::Alias;
use Data::Dumper;

my $false = !! 0;
my $true  = !! 1;

my (@foo, @bar);
alias $foo[0] = $false;
alias $bar[0] = $false;
alias $foo[1] = $true;
alias $bar[1] = $true;

print Dumper \@foo, \@bar;