use Win32::ODBC;
use Data::Dumper;

$Data = new Win32::ODBC("myExcel") || die "failed\n";
$Data->sql('SELECT * FROM [Sheet1$]');
while ($Data->FetchRow()) {
    my %hash = $Data->DataHash();
    print Dumper(\%hash);
}