use strict;
use warnings;
use feature 'say';

my $aref = [1, 2, 3];
# ->@* derefs the whole array (Perl 5.20+)
my @copy = $aref->@*;
say "@copy";
my $href = { a => 1, b => 2 };
# ->%* derefs a hash
say join(",", sort keys $href->%*);

->@* and ->%* deref