$a -> [0] =~ split /./;