my @array = ('hello', 'blah', 'bye');

my($scalar1) = @array; # $scalar1 eq 'hello'
my $scalar2  = @array; # $scalar2 == 3

print join ' ', $scalar1, $scalar2;