#!/usr/bin/perl

use strict;
use Data::Dumper;

my @arrays;

push( @arrays, sub { return 'hello' }, "hi" );

print join "\n", @{ \@arrays }, "\n";
print Dumper \@arrays;

__OUTPUT__
CODE(0x99d9550)
hi

$VAR1 = [
          sub { "DUMMY" },
          'hi'
        ];