#! /usr/bin/perl

use strict;
use warnings;
use Tie::File;

my $file = '/path/to/file.ext';

tie my @array,'Tie::File',$file or die $!;
$_ =~ s/,$/ / for(@array);
untie @array;