Select Code to Download

AA1    BB1

...
777    707
888    808
999    909

#!/usr/bin/perl
use strict;
...

    print $read->[2]{cell}[$row][2] 
}