use strict;
use warnings;

sub empty {
    return;
}

my @arr = ('first', &empty, 'third');

use Data::Dumper;
print 'Array is: ' . Dumper(\@arr);