Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    $csv->print($fh, $ref) || warn "Can't print:  $!";
}
$select_sth->finish();

$VAR1 = 'Low';
$VAR2 = [
...
$VAR6 = [
          $VAR2->[0]
        ];