#!/usr/bin/perl

use strict;
use warnings;

sub test_sort {
    warn 'start test_sort';
    warn $_ for sort {warn 'doing sort...'; 0;} @_;
}

test_sort(1,2);
test_sort(1);

↑これ、

[danjou@guido] $ perl test_sort.pl
start test_sort at test_sort.pl line 7.
doing sort... at test_sort.pl line 8.
1 at test_sort.pl line 8.
2 at test_sort.pl line 8.
start test_sort at test_sort.pl line 7.
1 at test_sort.pl line 8.

こういう出力になる。sortする配列が１個だとテストしないのね。そりゃそうか。