my @array = (1, 2, 3, 4, 5);
my @adjusted_array = map { $_ * 10 } @array;
print (join ',', @adjusted_array);

##</code><code>##

my @array = ('one-1', 'two-2', 'three-3', 'four-4', 'five-5');
my %hash = map { split /-/ } @array;
print (join ',', keys %hash);

##</code><code>##

if ($access) {
    foreach (@{$access}) {
        $set{$_->[0]} = $_->[1];
    }
}