W
Size: a a a
W
W
a
# Frobulates $a and $b
sub frobulate {
my ( $a, $b ) = @_;
}
W
W
a
МК
W
МК
a
R
МК
W
R
a
W
R
perl -wE 'use strict; sub xxx { my ($a, $b, @c) = @_; @c = sort { $a <=> $b } @c } xxx(10, 20, 3, 1, 2)'
"my $a" used in sort comparison at -e line 1.
"my $b" used in sort comparison at -e line 1.
МК
R
perl -wE 'use strict; sub xxx { my ($a, $b, @c) = @_; @c = sort { our $a <=> our $b } @c } xxx(10, 20, 3, 1, 2)'