Du verstehst, warum
my $a = @_; die Zahl drei ergibt?
$a ist ein Skalar und die Zuweisung eines Arrays an einen Skalar (das nennt man Skalarkontext) ergibt bei Perl eben die Anzahl der Arrayelemente.
Wenn du das erste Element eines Array willst:
my $a = $_[0];
oder
my $a = shift @_;
oder kürzer
my $a = shift;