my $ratest = $dbh->selectrow_arrayref($sql); my $testorder = pop @$ratest;