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;