sub first_n_chars {
  my $n = shift;
  return sub {
    return substr( shift, 0, $n )
  };
}

my $first_4 = first_n_chars(4);

print $first_4->("hello world");