InsertRecord($val1, $val2);
my @array = RetrieveValues($val2, $val3);

sub InsertRecords {
      my $dbh = DBI->connect(xxxx);
      # stuff
      }

sub RetrieveValues {
      my $dbh = DBI->connect(xxxx);
      # stuff
      }