Newbie wants a simple script in perl

Hi I have a file called "list1" - its got about 80 rows - each row is alpha numeric name w/ ".txt" extension - each name refers to a file in the dir. The script reads the list - for each name in the list, it will perform an operation (an executable of a "C-program" and writes to same name with a different extension, say ".mp3".