use strict;
use warnings;
use 5.006;
use Try::Tiny;

my @array = ();
my $array_ref = \@array;

push $array_ref, 'test'; # bugbug
#push @{$array_ref}, 'test'; # <== change prev line to be like this

test();

sub test {
  try
  {
    my $a = 1/0;
  }
  catch
  {
    print 'awww, snap!';
  };

  1;
}

1;
__END__