my @array = ( 'single result value' );
my $wrong = @array;     # SCALAR CONTEXT
my ($right) = @array;   # ARRAY CONTEXT
print "Wrong: $wrong\nRight: $right\n";
__DATA__
Wrong: 1
Right: single result value