Select Code to Download

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

use strict;
use warnings;
...

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