Select Code to Download

#!/usr/bin/perl

...
my @data = $parser->read_file($filename);
print "=========list of data=========", "\n";
print $dumper->dump( { dump => @data } ), "\n";

use strict;
use warnings;
use Text::CSV::Simple;
...
my @data = $parser->read_file($filename);
print "=========wanted fields=======", "\n";
print $dumper->dump( { dump => @data } ), "\n";