fork download
  1. use strict;
  2. use warnings;
  3.  
  4. sub empty {
  5. }
  6.  
  7. my @arr = ('first', &empty, 'third');
  8.  
  9. use Data::Dumper;
  10. print 'Array is: ' . Dumper(\@arr);
  11.  
Success #stdin #stdout 0.03s 5100KB
stdin
Standard input is empty
stdout
Array is: $VAR1 = [
          'first',
          'third'
        ];