my $sth = $dbn->prepare("select number,id,start_dat,end_dat from SUBSCRIBERSLIST");
$sth->execute();
$sth->bind_columns(\$number, \$id, \$start_dat, \$end_dat);

my %hash =();
while ($sth->fetch) {
  # ->fetch populates the variables from ->bind_columns
  push @{$hash{$number}}, [$id, $start_dat, $end_dat];
};

$sth->finish();
$dbn->disconnect;