#!/usr/local/bin/perl
 open (MYFILE, 'shoplist.csv');
while (<MYFILE>) {
 	chomp;
 	if (/\"(.*)\"/) {
 		my ($first,$last) = split('\s', $_); 							 		
 		print "$last $first\n";
 	}
 }
 close (MYFILE);