#!/usr/bin/perl
use strict;
use warnings;
use Spreadsheet::ParseExcel;

my $xls = Spreadsheet::ParseExcel->new();
my $xls_book = $xls->Parse( 'example.xls' );
my $xls_worksheet = $xls_book->{Worksheet}[0];

# B1 - B3
my @vals = map { $xls_worksheet->Cell( $_ , 1 )->Value } 0 .. 2;
print "$_\n" for @vals;