It is pretty difficult to trigger a segfault using pure Perl code.

my $a = [];
my $b = [$a];
push @$a,  $b;
1~~$a;  # though it is possible
[download]

The chances are that your segfault is happening in one of the modules you're loading. Specifically one of them that has been written in C rather than pure Perl. Most DBI drivers are at least partly written in C. These Util::* modules don't appear to be any publicly available modules, so I haven't got a clue what they're doing. The problem may well occur in one of them.