Select Code to Download

unless (open(INPUT, "$inputfile"))
    {
    print "ERROR: Can't open file for reading : $!\n";

    }

open INPUT, '<', $inputfile
  or die "ERROR: Can't open file for reading : $!\n";

while(<INPUT>)
    {

my @data = split("\t", $_);

my @data = split /\t/;

my @data = split;

my $did1 = $data[0];
my $did2 = $data[1];
my $score1 = $data[2];
my $score2 = $data[3];

my %rec;
@rec{qw(did1 did2 score1 score2)} = @data;

my %rec;
@rec{qw(did1 did2 score1 score2)} = split;

# before the loop
my $sth1 = $dbh->prepare("select d_id, c_id from d where d_id = ?");
...
# Then within the loop
$sth1->execute($rec{did1});
$sth2->execute($rec{did2});