my $match = sub { return substr($_[0], 0, 3) eq substr($_[1], 0, 3); };
print $match->('aaaa','aaab');