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