use Tie::File;
tie @array, 'Tie::File', "./text_file";

foreach (@array){
     tr/[a-zA-Z]/[A-Za-z]/;
}
untie @array;