#!/usr/bin/perl
    use strict;
    use warnings;
    use Text::CSV;

    my $file = 'prospects.csv';

    my $csv = Text::CSV->new();

    open (CSV, "<", $file) or die $!;

    while (<CSV>) {
        if ($csv->parse($_)) {
            my @columns = $csv->fields();
            print "@columns\n";
        } else {
            my $err = $csv->error_input;
            print "Failed to parse line: $err";
        }
    }
    close CSV;



##</code><code>##


    Name Address Floors Donated last year Contact
    Charlotte French Cakes 1179 Glenhuntly Rd 1 Y John
    Glenhuntly Pharmacy 1181 Glenhuntly Rd 1 Y Paul
    Dick Wicks Magnetic Pain Relief 1183-1185 Glenhuntly Rd 1 Y George
    Gilmour's Shoes 1187 Glenhuntly Rd 1 Y Ringo


##</code><code>##

          print "@columns\n";


##</code><code>##


            print "Name: $columns[0]\n\tContact: $columns[4]\n";


##</code><code>##

  #!/usr/bin/perl
    use strict;
    use warnings;
    use Text::CSV;

    my $file = 'prospects.csv';

    my $csv = Text::CSV->new();

    open (CSV, "<", $file) or die $!;

    while (<CSV>) {
        next if ($. == 1);
        if ($csv->parse($_)) {
            my @columns = $csv->fields();
            print "Name: $columns[0]\n\tContact: $columns[4]\n";
        } else {
            my $err = $csv->error_input;
            print "Failed to parse line: $err";
        }
    }
    close CSV;



##</code><code>##


    Name: Charlotte French Cakes
            Contact: John
    Name: Glenhuntly Pharmacy
            Contact: Paul
    Name: Dick Wicks Magnetic Pain Relief
            Contact: George<br>

    Name: Gilmour's Shoes
            Contact: Ringo