[@{$d[$mapkey]}] if $d[$mapkey]->[1] =~ /$a[$_]/

##</code><code>##

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