use Tie::File;

$file = 'myfile.dict';
$phrase = "fraza242";
$additionalmeaning = ' "An Additional Meaning of Phrase 242"';

tie @file, 'Tie::File', $file or die "Could not tie file $file because $!";

(tied @file)->autodefer(1);

for (@array)
{
if (/^$phrase/) { $_ .= $additionalmeaning; }
}


RTFM!
--sdg