Bulk renaming of file extensions

#!/usr/bin/perl

# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License version 2
# as published by the Free Software Foundation.
#

# Thanks Monica for making this code :)

# This program is used for changing file extensions on files
# eg.
# perl mvfiles.pl /home/username/filelist.txt
# NB file list cannot have \ (backslash) character in them.

# If you want log file of transformation send to log file
# perl mvfiles.pl /home/username/filelist.txt > conversion.log

# syntax of filelist.txt
# multiple lines similar to below
# "/home/username/filename1-you-want-to-change.mp2"
# "/home/username/filename2-you-want-to-change.mp2"
# "/home/username/filename3-you-want-to-change.mp2"

$csvfilename = "$ARGV[0]";


open(HANDLE, $csvfilename) || die ("Couldn't open that file");

@raw_data=;

close (HANDLE);

#read each line
foreach $line (@raw_data)
{
chomp ($line);
$line=~ s/"//g;
$oldfile=$line;


# old extension / new extension
$line=~ s/mp2/mp3/;


# prints new file name to screen
print "$line\n";

system(mv,$oldfile,$line);

}