Select Code to Download

print scalar (1,2,3);;
Useless use of a constant in void context at (eval 18) line 1, <STDIN>
+ line 16.
3

sub f { return( 'a', 'b', reverse(1..3) ); }
my @list = f();
my $scalar = f();