#!/usr/bin/env perl

use v5.40;

do_something();

sub do_something() {
    broken_function(10);
    broken_function(17);
    return true;
}

sub broken_function($val) {
    die("Bla") unless($val == 10);
}