# assuming the table you're talking 
# about is in a file...

#read perldoc -f open
open FH, "<file.dat" or die "Can't open : $!\n";
while (<FH>){
  # read perldoc -f split
  my ($weight, $height) = (split)[2,3]; 
  print "W: $weight   H: $height\n";
}
close FH;