CREATE OR REPLACE PROCEDURE my_proc
   (id    IN NUMBER,
    uname IN VARCHAR2,
    card  IN VARCHAR2)
AS BEGIN
    INSERT INTO TABLE
    VALUES (id, uname, card);
END;

my $sth = $dbh->prepare('call owner.my_proc(?, ?, ?)');
    for (1..$iter) {
        print "$_\n";
        $sth->execute($id, $name, $card);
        $id++;
    }
$dbh->commit;