takkkun · March 27, 2013 12:51
diff --git a/list.pl b/list.pl
 use strict;
 use warnings;

 sub list {
    qw/a b c/;
 }

 sub array {
    my @array = qw/a b c/;
    @array;
 }

 print scalar(list),  "\n"; # => "c"
 print scalar(array), "\n"; # => 3
	use strict;
	use warnings;

	sub list {
	qw/a b c/;
	}

	sub array {
	my @array = qw/a b c/;
	@array;
	}

	print scalar(list), "\n"; # => "c"
	print scalar(array), "\n"; # => 3
No results found