sub process_sheet
{
    my ($oBook,
        $iSheet,
        $materialmapping_table_xml,
        $materialmapping_table_xml_root) = @_;

    my $oWkS = $oBook->{Worksheet}[$iSheet];
    ...
}