Help for this page

Select Code to Download

Select or download this

while (my ($var, $cnt) = each %hash) {
    push @flat, ($var) x $cnt;
}