unless(eval{ $arrayref->can(maxstr) }){
  carp $@
}else{ 
  $arrayref->maxstr()
}
# carps