use strict;
use warnings;

my @data;
push @data, { name => "Item A", price => 9.99 };
push @data, { name => "Item B", price => 4.99 };
push @data, { name => "Item C", price => 7.5};
my @sorted = sort {$a->{price} <=> $b->{price}} @data;
print join "\n", map {$_->{name}." - ".$_->{price}} @sorted;

##</code><code>##

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;