Select Code to Download

my $sel_array = $dbh->prepare("SELECT ELEMENT FROM ELEMENTS_TABLE WHER
+E ID=?");
$sel_array->execute($id);
my (@new_array) = map { $_->[0] } @{$sel_array->fetchall_arrayref};