my $sth21= $dbh->prepare(qq{SELECT MR_M FROM MR2});
        die "Couldn't prepare queries; aborting"
            unless  defined $sth21;
        $sth21->execute();
        while (my @ary=$sth21->fetchrow_array()) {
         push @mr_m,  @ary;
        }
        my $sth22= $dbh->prepare(qq{SELECT MR_R FROM MR2});
        die "Couldn't prepare queries; aborting"
            unless  defined $sth22;
        $sth22->execute();
        while (my @ary=$sth22->fetchrow_array()) {
         push @mr_r,  @ary;
        }

# HERE I PRINT OUT WHAT I HAVE READ FROM THE DATABASE
for (my $i=0; $i<@mr_m; $i++)   {
        print "$mr_m[$i]\t $mr_r[$i]\n";
}