Select Code to Download

my %ret = map $_->{key} =~ /^a\d/ ? ( $_->{ key } => $_->{ value } ) :
+ (), @$data1;