foreach my $tran_set ( @$trans ) {
    my $i = 0;
    foreach my $stripe ( @$tran_set ) {
    my $localfile = $stripe;
        $localfile =~ s(^.*/)($local_root);
    $stripe = $localfile;
    if ( $i == 0 ) {
        $sql = "load tran $db from \'$stripe\'\n";
    } else {
        $sql .= "stripe on \'$stripe\'\n";
    }
    $i++;
    }
    $$dbh->do($sql)
    or $app->log($FATAL, "Can't do sql statement [ $sql ]: $DBI::errstr");
    foreach my $stripe ( @$tran_set ) {
    rmtree($stripe);
    }
}

$sql = "online database $db";

$$dbh->do($sql)
    or $app->log($FATAL, "Can't do sql statement [ $sql ]: $DBI::errstr");

}