my $number = scalar (1 .. 10);
print "Result: $number\n";