# Usage : @word = letters $word sub letters { split //, shift; }