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);