use strict; use warnings; print "A: ", scalar(10, 20, 30, 40, 50, 60, 70), "\n"; # = scalar(70) = scalar 70 = 70 print "B: ", scalar(70), "\n"; # = scalar 70 = 70 print "C: ", scalar 70, "\n"; # = 70 my $x = scalar(10, 20, 30, 40, 50, 60, 70); # = scalar(70) = scalar 70 = 70 print "D: ", $x, "\n"; $x = (10, 20, 30, 40, 50, 60, 70); # = (70) = 70 print "E: ", $x, "\n"; my @a = (10, 20, 30, 40, 50, 60, 70); print "F: ", scalar @a, "\n"; # = 7, the length of @a #### Useless use of a constant (10) in void context at D:\stuart\play\temp\pp.pl line 4. Useless use of a constant (20) in void context at D:\stuart\play\temp\pp.pl line 4. Useless use of a constant (30) in void context at D:\stuart\play\temp\pp.pl line 4. Useless use of a constant (40) in void context at D:\stuart\play\temp\pp.pl line 4. Useless use of a constant (50) in void context at D:\stuart\play\temp\pp.pl line 4. Useless use of a constant (60) in void context at D:\stuart\play\temp\pp.pl line 4. Useless use of a constant (10) in void context at D:\stuart\play\temp\pp.pl line 10. Useless use of a constant (20) in void context at D:\stuart\play\temp\pp.pl line 10. Useless use of a constant (30) in void context at D:\stuart\play\temp\pp.pl line 10. Useless use of a constant (40) in void context at D:\stuart\play\temp\pp.pl line 10. Useless use of a constant (50) in void context at D:\stuart\play\temp\pp.pl line 10. Useless use of a constant (60) in void context at D:\stuart\play\temp\pp.pl line 10. Useless use of a constant (10) in void context at D:\stuart\play\temp\pp.pl line 13. Useless use of a constant (20) in void context at D:\stuart\play\temp\pp.pl line 13. Useless use of a constant (30) in void context at D:\stuart\play\temp\pp.pl line 13. Useless use of a constant (40) in void context at D:\stuart\play\temp\pp.pl line 13. Useless use of a constant (50) in void context at D:\stuart\play\temp\pp.pl line 13. Useless use of a constant (60) in void context at D:\stuart\play\temp\pp.pl line 13. A: 70 B: 70 C: 70 D: 70 E: 70 F: 7