Perl 有三种上下文：空、标量、以及列表。
func(); # void
my $ret = func(); # scalar
my ($ret) = func(); # list
my @ret = func(); # list如果你在子例程或 eval 块中，你能够使用 wantarray 来决定想要的上下文。
以下是处理正则表达式返回值的上下文例子：
my $str = 'Perl 101 Perl Context Demo';
my @ret = $str =~ /Perl/g; # @ret = ('Perl','Perl');
my $ret = $str =~ /Perl/g; # $ret is true.. 和 ...
这些叫区间操作符，它们能够帮助代码处理整数或字符区间。
在下例中，@array 是手动填充的。这些是等价的：
my @array = ( 0, 1, 2, 3, 4, 5 );
my @array = 0..5;当用于此种方式时，.. 和 ... 是等效的。
区间操作符只能增加。这会产生一个空列表：
my @array = 10..1; # @array is empty如果你想要逆向，要求它。
my @array = reverse 1..10; # @array descends from 10 to 1你也可以在标量上下文中使用区间操作符，但那超出了本节的范围。参阅手册页 了解细节。