open(INF,"<$filename") || die "Couldn't open in file\n";

my $id = 0;
my $data = "";
...
my $statement = $dbh->prepare("insert into data_table values(:1,:2)");

while(<INF>) {
  if (s/^ID:[\s]+//g) {
    $id = lc($_);
  }
  elsif (s/^Data:[\s]+//g) {
    $data = lc($_);
  }
  #repeat for several labels

  $statement->execute($id,$data);

  $id = 0;
  $data = "";
}