Convert TSV to CSV

#!/usr/bin/perl
open (INFILE, @ARGV[0]);
my $line;my @thelines;my $thecounter=0;
while (<INFILE>) {
    chomp;
    $line = $_;
    $line =~ s/\t/,/g;
    $thelines[$thecounter]=$line;++$thecounter;
}
close (INFILE);
open (OUTFILE, ">@ARGV[0]");
foreach (@thelines) {print OUTFILE "$_\n";}
close (OUTFILE);