use strict;
use warnings;
use Data::Dumper;
use feature qw/say/;

my @a1 = 'aaa' ~~ /./g;
my @a2 = 'aaa' =~ /./g;
say Data::Dumper->Dump([\@a1, \@a2], [qw/smart_match re_match/]);

##</code><code>##

$smart_match = [
                 1
               ];
$re_match = [
              'a',
              'a',
              'a'
            ];