open (TXT, "aaa.txt") || &error("開けません。");
while($linevalue = <TXT>){

}
aaa.txtを一気に全部読み込むことってできますか？
while($linevalue = <TXT>){
　$line_all .= $linevalue;
}
で、連結させていくしかないですか？