my $foo = [ ];
push @{$foo}, 1; 
push @{$foo}, 23; 

my $boolean = ${$foo}[0];
my $int = ${$foo}[1];