#!/usr/bin/env perl
use warnings;
use strict;
use 5.10.1;


my $x = 50;
my $y = 200;

my $z = $x * ( ( $y / $x ) - 1 );

say $z;