#!/usr/bin/perl

use strict;
use warnings;

my $sold  = 10;
my $cost  = 250;
my $price = 300;

my $discount = 0.10;

my $total_cost = $cost ... $sold ...;

my $discounted_price = $price ... $discount ...;

my $total_sales = $discounted_price ... $sold ...;

my $profit = $total_sales ... $total_cost ...;