find and replace in same file in perl

open(FILE,"sam");
@line=<FILE>;
close(FILE);
open(FILE1,">sam");
for($i=0;$i<@line;$i++)
{
$line[$i]=~s/4/charles/sg;
print FILE1 $line[$i];
}
close(FILE1);