my $workbook = Spreadsheet::WriteExcel->new("result.xls");

if (  $somevalue == 1 ) {
    my $workSheet = $workbook->add_worksheet('PASS');
    excel_write ( $workSheet,@pageid_pass,@plot_pass );
}

##</code><code>##

sub excel_write {
    my ( $worksheet,@pageid,@plotname ) = @_;

    $workSheet->write($row,$col,"PLOTNAME",$format);
    $col++;
    $workSheet->write($row,$col,"PAGEID",$format);
    $row++;
}