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

use 5.010;

sub foo {
    my $str = shift;

    if ( 1 < length($str) ) {
        say "ok";
    }
    else {
        say "no";
    }
}

say foo("a");