{my $csv = Text::CSV->new();
open (FILE, "$Filename") or die "Couldn't open location file: $!";
while (<FILE>) {
    $csv->parse($_);
    push(@report, [$csv->fields]);
}
close FILE;
return ( join( "\n", @report ) );}