Perl DBD :: CSV DB обработчик той же области

Question

В моем скрипте perl у меня есть две подпрограммы, вызываемые из main. Компилятор perl помечается под предупреждением ниже

переменная "my" $ dbh маскирует предыдущее объявление в той же области действия

для подпрограммы А и В

#!/usr/bin/perl -w

 my $dbh = DBI->connect("dbi:CSV","","");

 $dbh->do ("CREATE TABLE a (Id INTEGER PRIMARY KEY, Job_Id INTEGER ,)") or die "Cannot prepare: " . $dbh->errstr ();

 $dbh->disconnect;

 a();

 b();

 ############## SUBROUTINE
 sub a {

   my $dbh = DBI->connect("dbi:CSV","","");

   $dbh->do ("INSERT...") or die "Cannot prepare: " . $dbh->errstr ();

   $dbh->disconnect;

 }

 sub b {

   my $dbh = DBI->connect("dbi:CSV","","");

   $dbh->do ("INSERT...") or die "Cannot prepare: " . $dbh->errstr ();

   $dbh->disconnect;

 }