You are missing the tilde in the match.
Should've been:

use strict;
use Data::Dumper;
my @list = ("abcdef" =~ /(.)./g);
print Dumper \@list;
(my ($first)) = @list;
print "$first\n";

# in one step
(my $first) = ("abcdef" =~ /(.)./g);
[download]