無保証
my @array_new = map { /正規表現/; { $1 => $2 }; } @array;