#!/usr/bin/env perl

use Modern::Perl;

my $x = 1.2;

given($x) {
    when(int) { say 1 }
    default   { say 2 }
}