use strict;
use warnings;

sub empty_list1 {
  @{ [] }
}

sub empty_list2 {
  qw,,
}

sub empty_list3 {
  ()
}

$|=1;

print(scalar(empty_list1()),"\n");
print(scalar(empty_list2()),"\n");
print(scalar(empty_list3()),"\n");