use v5.14;
use List::Util qw(pairkeys pairvalues);

my @a = qw(a b c d e f);
say "keys = ", join ", ", pairkeys @a;
say "values = ", join ", ", pairvalues @a;

my %h = @a;
say "keys = ", join ", ", keys %h;
say "values = ", join ", ", values %h;