#!/usr/bin/env perl

use strict;
use warnings;

my @data;

while (<DATA>) {
    next if $. == 1;
    push @data, [split];
}

for my $i (@data) {
    for my $j (@data) {
        print "Ratio ($j->[0]:$i->[0]): ";
        printf ' %.4f', $j->[$_] / $i->[$_] for 3 .. $#$j;
        print "\n";
    }
}

__DATA__
ID    Record  Time  A  B  C  D  E  F  G
A776  762.81  0.76  2  2  2  2  2  2  2
A872  762.91  1.23  4  4  4  4  4  4  4