以下のプログラムを動かしたとき、
出力結果がすべて2001になるように「$Xを使った式」
の部分を（もちろん$Xを使って）埋めてください。

◆プログラム
$a =     " 1999, 2000, 2001, 2002 ";
$b =     ( 1999, 2000, 2001, 2002 );
$c =     [ 1999, 2000, 2001, 2002 ];
$d =     { 1999, 2000, 2001, 2002 };
$e = sub { 1999, 2000, 2001, 2002 };
$f =   2_0_0_1 ;
$g =  "2 0 0 1";
$h = "\2\0\0\1";
$i =   \2001;
$j =   "1002";
$k = \*_2001;
print $aを使った式                          , "(a)\n";
print $bを使った式                          , "(b)\n";
print $cを使った式                          , "(c)\n";
print $dを使った式                          , "(d)\n";
print $eを使った式                          , "(e)\n";
print $fを使った式                          , "(f)\n";
print $gを使った式                          , "(g)\n";
print $hを使った式                          , "(h)\n";
print $iを使った式                          , "(i)\n";
print $jを使った式                          , "(j)\n";
print $kを使った式                          , "(k)\n";

◆出力結果
2001(a)
2001(b)
2001(c)
2001(d)
2001(e)
2001(f)
2001(g)
2001(h)
2001(i)
2001(j)
2001(k)