in reply to spreadsheet::xlsx and terrible stuff

try 
print FILE ($_->{Val})

[download]
poj

In Section Seekers of Perl Wisdom