my $fh = Tie::Handle::CSV->new($csvfile, header => 1,
    		 																 open_mode => "< :encoding(ISO 8859-1)");

    		 while (my $csv_line = <$fh>) {
 
$lookup_email = $csv_line->{'email'} ...