Select Code to Download

my $key1 = sprintf "%.2f", 45.20;
my %ITEMS = ( $key1 => 'item 1');

$key1 = sprintf "%.2f", 52.30;
my %ITEMS = (
...
if (exists $ITEMS{$input}) {
    print $ITEMS{$input} . "\n";
}