use DBI;
use DBD::Sqlite;

# Connect to your database
my $dbh = DBI->connect("dbi:sqlite:$db_name:localhost:$port", $db_user, $db_password);

# Create a temporary table
$dbh->do("CREATE TEMPORARY TABLE IF NOT EXISTS ExcelData (name VARCHAR(80), data INT)");

# Populate temporary table from your datasource
foreach my $row(@responsetext) {
	my ($name, $data) = split / +/, $row
	$dbh->do("INSERT INTO ExcelData SET name = '$name', data = $data");
}

# Create a query to sort the data how you want it and output to CSV file
open $fh, '>', 'myfile.csv';
my $query = $dbh->prepare("SELECT name, data FROM ExcelData WHERE data > 20 ORDER BY data");
$query->exceute;
my ($n, $d);
while (($n, $d) = $query->fetchrow_array) {
	print $fh qq["$n",$d\n];
}
close $fh;