perlメモ foreach

久しぶりにperlでプログラムを組んだ。そしてはまったｗｗ

my $dbh = DBI -> connect(〜〜〜〜);

foreach my $hoge (@hoge2){
    $hoge = $dbh->quote($hoge);
    push @hoge3 , $hoge;
}

ソースの中身はぜんぜん適当です。

foreachで変数を宣言（$hoge）は値のコピーだと思っていたのですが、
リファレンスなんですね。

後で@hgoe2　の配列を使用するときに値が変わっててびっくりしましたとさｗ