tips.pl

#!/usr/bin/perl

use strict;
use warnings;

my $days       = 7;
my $nights     = $days - 1;
my $bar        = 2;
my $maid       = 5;
my $alacarte   = 5;
my $incidental = 80;
my $rounds     = 4;

my $mex = 13.9634;
my $total
    = ( $nights * $maid )
    + ( $rounds * $days * $bar )
    + ( $alacarte * 4 )
    + $incidental;

printf "Canadian dollars: %.2f\n", $total;
printf "Mexican pesos: %.2f\n",    $total * $mex;