Perl で、「配列とハッシュの組み合わせ」のデータ構造を作る

1. 配列の頭に付けるのは「@」であるから、その後の配列の要素の列挙においてハッシュを宣言する。このときハッシュの各要素は {...} でくくって 「key => value」 としている。それぞれの要素はカンマ(,) で区切る。配列の宣言の最後はセミコロン (;) である。
2. 各要素へのアクセスはまず配列を foreach でほぐす。ほぐした各要素は $db->{key} のように -> でアクセスできる。

#!/usr/bin/perl

# 定義
@DBs = (   # Iteration of the parameters
  {
    DB       => 'db1_name'    ,  # Database Name
    USERNAME => 'db1_username',  # Username
    PASSWORD => 'db1_password',  # Password
  },
  {
    DB       => 'db2_name'    ,  # Database Name
    USERNAME => 'db2_username',  # Username
    PASSWORD => 'db2_password',  # Password
  }
);

# アクセス
foreach my $db ( @DBs ) {

  print "DB name : $db->{DB}\n";
  print "Username: $db->{USERNAME}\n";
  print "Password: $db->{PASSWORD}\n";

  print "\n";
}