Perlむずいのう...

はじめて & の有り無しで困ったもんで...。

use Data::Dumper;

@list1 = sort my_get_list;   # orz
@list2 = sort my_get_list(); # orz
@list3 = sort &my_get_list;
@list4 = sort &my_get_list();

print Dumper(\@list1);
print Dumper(\@list2);
print Dumper(\@list3);
print Dumper(\@list4);

sub my_get_list {
    return (1,5,3);
}

$VAR1 = [
          'my_get_list'
        ];
$VAR1 = [];
$VAR1 = [
          1,
          3,
          5
        ];
$VAR1 = [
          1,
          3,
          5
        ];