...
    my $transactions_id = shift;
    print "$transactions_id\n";
    ...
    my $ar = $dbh->selectall_arrayref( $sql, undef, $transactions_id );
    print Dumper $ar;
    ...