# Assign a list to a scalar
my $scalar = ('A', 'B', 'C');
print "$scalar\n"; # $scalar is C

# Assign an array to a scalar
my @array = ('A', 'B', 'C');
$scalar = @array;
print "$scalar\n"; # $scalar is 3