use strict;
use warnings;

my @data;
my %recordset;

$recordset{name} = "Item A";
$recordset{price} = 9.99;

push @data, \%recordset;

$recordset{name} = "Item B";
$recordset{price} = 4.99;

push @data, \%recordset;

$recordset{name} = "Item C";
$recordset{price} = 7.5;

push @data, \%recordset;


my @sorted = sort {$a->{price} <=> $b->{price}} @data;
print join "\n", map {$_->{name}." - ".$_->{price}} @sorted;