use strict;
use warnings;
use Data::Dumper;




my @data;

for (my $i=5, my $j=0; $i<=10, $j<=20 ; $i++, $j++) {
my %recordset;
$recordset{name} = $i;
$recordset{price} = $j;

push @data, \%recordset;
}

print Dumper(\@data);