#/usr/bin/perl use strict; use warnings; my $JUCHU = 1; my $NICE_PROJECT = 1; my $BAD_PROJECT = 1; my $FOR_OUR_BOSSES = 50_000; my $our_salary = 200_000; while ( $JUCHU ) { $our_salary += 10_000 if $NICE_PROJECT; $our_salary -= 10_000 if $…