@data=(100,200,300);

foreach $nnn(@data){

$nnn = &henkan($nnn);

}


foreach (@data){

print "data=$_<br>";

}


sub henkan{

my($henkan_data) = $_[0];

$henkan_data = "30000";
return($henkan_data);

}

@dataが全部30000に置き換わっていました。
どうして置き換わってしまうんでしょうか？
$nnnの値を変えると@dataも変わってしまうのですか？