#!/usr/bin/perl
 use warnings;
 use strict;
 
 use DBIx::Simple;
 
 my $db = DBIx::Simple->connect('dbi:SQLite:dbname=mydatabase.db')
        or die DBIx::Simple->error;
		
 open (WEBPAGESFORALL, "<webpages.txt") || die "couldn't open the file!";		
 
  my @webpages = <WEBPAGESFORALL>;
  close(WEBPAGESFORALL);
 
 my $webpage_no = @webpages;
  
 my @webpages_for_files;
 
 print @webpages;
 
 for (my $count=0; $count <= $webpage_no; $count++) {
   $webpages_for_files[$count] = $db->query("SELECT webpage FROM webpages_data WHERE id = $webpages['$count']'")->list;
 }
 
  print @webpages_for_files;
 
 open (WEBPAGES_OUT,">giveit.txt") || die "couldn't open the file!";
 
 foreach my $webp(@webpages_for_files) {
    print $webp ."\n";
 }

 close(WEBPAGES_OUT);