...
    print $cell->{Val}, "\n";