#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use HTML::Template;
my %hash = (
2 => ['pear', 'icky pineapple',],
3 => ['apple', 'grape',],
5 => ['orange',],
);
my $char_loop;
for my $key (reverse sort keys %hash) {
my $fruit_loop;
my @fruits = @{$hash{$key}};
for my $fruit (@fruits){
push @{$fruit_loop}, {
fruit => $fruit,
};
}
push @{$char_loop}, {
chars => $key,
fruit_loop => $fruit_loop,
}
}
#print Dumper $char_loop;
my $t = HTML::Template->new(
filename => q|sulferic.html|,
) or die $!;
$t->param(
char_loop => $char_loop,
);
print $t->output();
__DATA__
---------- Capture Output ----------
> "C:\Perl\bin\perl.exe" _new.pl
HoA
5
orange
3
apple
grape
2
pear
icky pineapple
> Terminated with exit code 0.
####
HoA