Select Code to Download

my $sql = "select * from location";
my $sth = $dbh->prepare( $sql );
...
  print "\n";
}
$dbh->disconnect();

#!/usr/bin/env perl
use strict; 
...
dd @$data[1]; # Second row from the database as hashref
dd $data->[0]{field1}; #field1 from first row