my $get_data_sub= sub {
  my ( $offset, $rows ) = @_;

  # ...
  my $stmtHandle = $dbHandle->prepare(<<"  END");
    SELECT sno, name, age, deptno
    FROM   sample1
    LIMIT  $offset, $rows
  END

  # rest of code as before