Help for this page
[@{$d[$mapkey]}] if $d[$mapkey]->[1] =~ /$a[$_]/
$d[$mapkey]->[1] =~ /$a[$_]/ ? [@{$d[$mapkey]}] : ()