#!/usr/local/bin/perl
use strict;
use warnings;

my ($price, $floor) = &get_price_floor() || 0;
print $price;

sub get_price_floor {
  return (10, 8);
}