my $rowRef = $dbh -> selectrow_arrayref("select col1 from table1 where col1 = col2 and col2 != '$ someval'"); my @row = @{ $rowRef }; #or ... my $tuple = shift @{ $rowRef }; #or ... my $tuple = @{ $rowRef }[0];