use v5.24;
use strict;
use warnings;
use utf8;
use open ':std', ':encoding(UTF-8)';

for my $i ( 1 .. 10) {
    say "$i ist ", eval {
        my $int = 5;
        my $str = 'fünf';

        return "kleiner $str" if $i < $int;
        return "gleich $str" if $i == $int;
        return "größer $str";
    };
}