my @array = qw (hi there);
my $len = @array;
my ($fstel) = @array; # Note the paren () around $fstel

print ("Len = $len First element = $fstel\n");

__END__
Len = 2 First element = hi